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INTRODUCTION 


Burroughs RPG (Report Program Generator) is a machine-independent programming 
language suitable for implementation in a wide variety of data processing 
applications. B 1800/B 1700 RPG embraces RPG as implemented on IBM 360/20 Sys- 
tems and RPG II as implemented on IBM S/3. In addition, Burroughs has taken 
advantage of the sophisticated operating system of the B 1800/B 1700 to allow 
optional extensions to the above-mentioned implementations. 


Burroughs B 1800/B 1700 RPG defaults to that of IBM 8/3. A simple control 
option signals the compiler to generate code as in 360/20 RPG. Throughout 
this manual, reference to 360/20 RPG will be denoted by "RPG 1". 


Burroughs B 1800/B 1700 RPG offers the following advantages to the user: 


a. Simple, generative syntax for ease of program implementation. 
b. Accelerated programmer training and simplified retraining requirements. 
c. Ekase of conversion through standard implementation. 


d. Ease of program modification. 
e. Standardized documentation. 


This manual describes Burroughs B 1800/B 1700 RPG, and is a reference to the 
RPG Specification Forms together with each of their appropriate fields. 


Columns not mentioned in the specifications sections are not used and must be 
left blank. 


When left and right broken brackets « >) are used in syntax descriptions they 


denote that a metalinguistic variable of the language is to be placed at that 
point in the syntax. 


XX1 


SECTION | 


RPG OPERATION 


A program written in Burroughs RPG, called a source program, is accepted as 
input by the RPG Compiler. The compiler first verifies that the source pro-7 
gram is syntactically error-free, then converts this source into RPG S- 
Language, which is then ready for execution on the system, The S~Language 
generated by the compiler can be executed by using an Interpreter. The 
Interpreter causes the system hardware to perform the operations specified 
by the S~Language Program and, thus, by the programmer who wrote the source 
program. 


For a more detailed description of the function of the S-Language as it re- 
lates to the Interpreter and the hardware, refer to B 1800/B 1700 System 
Software Operational Guide, Form No. 1068731. 


RPG SOURCE PROGRAM 


An RPG Source Program is divided into eight parts which must appear in the 
following order: 


Control Card Specifications 

File Description Specifications 
Extension Specifications 

Line Counter Specifications 
Telecommunications Card Specifications 
Input Specifications 

Calculation Specifications 
Output~Format Specificatiors 


A description of the above specifications is contained in the paragraphs that 
follow. 


CONTROL CARD SPECIFICATIONS 


These specifications provide certain information about the program to the 
B 1800/B 1700 RPG Compiler. 


FILE DESCRIPTION SPECIFICATIONS 

These specifications provide information about the equipment being used, and 
associate files with the hardware devices that will be used. The file types 
(i.e., input, output, combined) and blocking factors are also given. 


EXTENSION SPECIFICATIONS 


These specifications are used to describe tables, arrays, and record address 
files that will be used with the program. 


LINE COUNTER SPECIFICATIONS 


These specifications provide information about the number of lines to be 
printed on each page of the output forms that are used. Also, line-channel 
equation can be given to associate a print line with a channel punch in a 
carriage control tape. 

TELECOMMUNICATIONS CARD SPECIFICATION 


The Telecommunications card is used to further define a file specified on the 
File Description Specifications as a REMOTE, DATACOM, or BSCA file. There is no 
special form for coding Telecommunications Specifications, but the format 
described in Section 7 must be used. 

INPUT SPECIFICATIONS 


These specifications are used to describe the record layouts of all input files 
used by the program. 


CALCULATION SPECIFICATIONS 


These specifications define the steps necessary to accomplish the desired task 
when operating on data described in the progran, 


OUTPUT-FORMAT SPECIFICATIONS 


These specifications are used to specify the type and arrangement of data that 
will be written as output from the program. 


DOLLAR CARD SPECIFICATIONS 

The Dollar Card ($ Card) Specifications sheet is also defined for Burroughs 
RPG, These specifications are used to accommodate machine~ and system- 
dependent features, and may appear anywhere in a RPG Source Program, unless 
otherwise specified (see Chroter 11). 


The above specifications are coded using the following Report Program 
Generator forms: 


a. Control Card Specifications/File Description Specifications 
(Form No. 1055837) 


b, Extension Specifications/Line Counter Specifications 
(Form No. 1055852) 


c, Input Specifications (Form No. 1107562) 
d. Calculation Specifications (Form No. 1055878) 
e, Output-Format Specifications (Form No. 1055886) 
f. Dollar Card Specifications (Form No. 1055845) 
RPG SOURCE PROGRAM DECK 
The coded information contained on the specification forms is recorded in 


punched cards which constitute the source program. The arrangement of these 
cards in the source deck is illustrated in figure 171. 


T TELECOMMUNICATIONS CARD 
SPECIFICATIONS 


L LINE COUNTER SPECIFICATIONS 


E EXTENSION SPECIFICATIONS 


F FILE DESCRIPTION SPECIFICATIONS 
H CONTROL CARD SPECIFICATIONS 


614003 


Figure 1-1. RPG Source Program Deck 


Should source corrections become necessary, appropriate changes can be made 
and the program recompiled. Thus, the source program deck always reflects 
the S-Language being operationally executed. See Section 12 for operating 
instructions. 


RPG FORMAT 


As mentioned in the introduction to this manual, Burroughs RPG accepts source 
statement input in the format of either RPG 1 or RPG Il. 


The following is a list of exceptions found in B 1700 RPG: 


a. The Control Card requires simplified recoding before compiling pro7 
grams from systems other than B 1700. 


b. B 1700 RPG allows 511 characters for alpha fields and 31 for numeric, 


c. IBM's RPG uses standard right signed numeric fields, whereas 
Burroughs B 1700 RPG uses standard left sign. IBM's System 3 
standard plus sign is 'F' right sign, the 360/20 standard plus 
sign is 'C' right sign, whereas the Burroughs standard plus sign 
is 'C' left sign. B 1700 RPG allows the right sign option for 
system compatibility. (Refer to $RSIGN option in Chapter 11.) 


Numeric fields must be edited if the C zone punch is not wanted on 
output. Otherwise, a positive unedited numeric field will contain an 
alpha character in the left~-most position of the field. For example, 
CIFOFIF3 would appear as A013 on the printed output. However, if 
this field is edited, it will assign a F to the left-most character, 
changing the output to appear as 1013. 


96-column devices will not allow packed decimal format. 


The following features and language constructs are not provided for 
by Burroughs RPG: 


1. Variable length records 

2. Sterling data format. 

a5 Alternate collating sequence. 
A. Inquiry programs. 

oO. Printer keyboard output files. 


External assembler subroutines. 


6 

Ca Blank after literals. 

8 Redefined field lengths. 
9 


Factor 1 and Factor 2 both literals. 


10. Card print feature of IBM's 360/20. 


ll. File translation. 


SECTION 2 


RPG LANGUAGE ELEMENTS 


Burroughs RPG is a programming language based upon a fixed series of events, 


called the RPG ''program cycle", 
Due to the strict limitations of the generated progran, 
must conform to rigid rules of syntax, 


which takes place during program execution. 
the source language 
The following paragraphs and sections 


define the rules for writing programs using the RPG language. 


CHARACTER SET 


The minimum RPG character set consists of the following characters: 


a a) 


a, 
—Z, 


blank or space 
ampersand 


period or decimal point 


minus sign 
dollar sign 
asterisk 
comma 
apostrophe 


The following RPG characters are optional and may be added to the above list: 


plus sign 

less than sign 
greater than sign 
left parenthesis 
right parenthesis 
left bracket 
right bracket 
logical OR 
logical NOT 
exclamation point 
semicolon 

slash (virgule) 
percent sign 
underscore 
question mark 
colon 

pound sign 

at sign 

equal sign 
quotation mark 


CHARACTERS USED FOR NAMES 


The character set used to form names consists of the 36 characters: 0 through 
9 and A through Z, 


CHARACTERS USED FOR EDITING 


The character set used for special purposes within edit words in the Output~ 
Format Specifications consists of the following nine characters: 


blank or space 
0) Zero 
$ dollar sign 
decimal point 
; comma 
CR credit symbol (two characters) 
* asterisk (check protect) 
& amperand 
= minus sign 


DEFINITION OF NAMES 


A name must be left-justified in the field, must begin with an alphabetic 
character, and is ended by a space or the end of the field, whichever comes 
first. All characters in a name except the first may be any combination of 
alphabetic and numeric characters (Special characters are not allowed). 
Blanks may not appear between the characters in a name. 


RPG defines the following four types of names: 


Filenames 

Vector names (table or array names) 
Field names (variable names) 

Labels 


FILENAMES 


A filename is a collective name or word that designates a set of data items. 
The contents of a file are divided into logical records which are made up of 
any consecutive set of data items. Filenames cannot exceed eight characters 
and the first seven characters must be unique among filenames (e.g., DISKFILE 
and DISKFIL are considered by the compiler to be equal). The compiler trun- 
cates the eighth character. 


VECTOR NAMES 


A vector name is used to identify a data item which is actually a table or 
an array. The table will be loaded with a number of elementary data items 
which are accessed through use of the vector name that identifies the entire 
table. Vector names cannot exceed six characters and must be unique among 
vector and field names, 


FIELD NAMES 


A field name is used to identify an individual element of data. Field names 
cannot exceed six characters and must be unique among vector and field names. 
A separate memory area is reserved for each unique field name which is com- 
pletely unrelated to any memory area reserved for any other field name, 


LABELS 
A label is used only to identify a point in the Calculation Specifications to 


which a GOTO operation will branch, or to identify the beginning of a sub- 
routine, Labels cannot exceed six characters and must be unique among labels. 
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DEFINITION OF LITERALS 


A literal is an item of data which contains a value identical to the characters 
being described. There are two classes of literals: numeric and alphanumeric. 


NUMERIC LITERAL 


A numeric literal is defined as an item composed of characters chosen from the 
digits 0 through 9, an optional plus sign (all numeric literals not signed 
minus (7~) are assumed plus) or minus sign (-), and the decimal point or decimal 
comma (see item e below). The rules for the formation of a numeric literal 
are: 


a, There must be at least one digit in a numeric literal. 


b. The sign of a numeric literal must appear as the left~-most character. 
If no sign is present, the literal is defined as a positive value, 


ec. Only one sign character and/or one decimal point may be contained in 
a numeric literal, 


d. The maximum total length of a numeric literal is 10 characters, in- 
cluding sign and decimal point. 


e, Decimal commas must be used in place of decimal points if the Inverted 
Print Options I or J are used (Control Card, Column 21). 


f. Embedded blanks are not allowed. 
The following are examples of numeric literals: 


13427 

.005 

+1,.808 = 1.808 
-,0968 

7894 , 54 


ALPHANUMERIC LITERAL 


An alphanumeric literal may be composed of any allowable character. The 
beginning and end of an alphanumeric literal is denoted by an apostrophe. 

Any character enclosed within apostrophes is part of the alphanumeric literal. 
Consequently, all spaces enclosed within the apostrophes are considered part 

of the literal. Two consecutive apostrophes within an alphanumeric literal 
cause a single apostrophe to be inserted into the literal string. An alpha- 
numeric literal which consists only of four consecutive apostrophes results 

in a single apostrophe. The rules for the formation of an alphanumeric literal 
are: 


a. There must be at least one character in an alphanumeric literal. 
b. The maximum length of an alphanumeric literal used in the Calculation 
Specifications is eight characters, and in the Output~Format Specifi- 


cation is 24 characters. 


c. Alphanumeric literals may not be used for arithmetic operations. 


The following are examples of alphanumeric literals: 


Literal on Source Program Level Literal Stored by Compiler 
"ACTUAL! ACTUAL 
Y= 1254.56! —-1234.56 
"WEEK''S' WEEK'S 
"TODAY''S DATE! TODAY'S DATE 
rrr? t 
TA't YB! A'B 
rArrrnrpBt A''B 


DEFINITION OF RESERVED WORDS 


Reserved words have a specific function in the RPG syntax and are of two 
types: special words and operation codes. 


SPECIAL WORDS 


Reserved words are used in the Input, Calculation, and Output~Format Speci- 
fications, and specify such things as page numbering, date fields, and card 
interpreting. 


The following special words are reserved for use as variables: 


JDATE 

PAGE 

PAGEn (where n=17-8) 
TIME 

UDATE 

UMONTH 

UDAY 

UYEAR 

*PRINT 

*PLACE 


Their use is discussed fully in the sections where they are used. 


OPERATION CODES 


These reserved words are used in the Calculation Specifications, and specify 
Operations to be performed upon data items. A complete description of the 
operation codes is presented in Section 9. 


COMMON FIELD DEFINITIONS 


The RPG specification forms have certain common fields which have consistent 
entries within a RPG Program. These fields and their respective entries are 
described below, so that they need not be repeated in subsequent sections. 


PAGE 


The PAGE entry in the upper left-hand corner of each specification form 
is used to number the coding forms sequentially for each source program. 
Normally, only numeric characters in the range 01-99 would be used; how- 
ever, any EBCDIC characters (including blanks) are valid entries. 


LINE 


The LINE entry is used to number the individual lines on each speci- 
fication form sequentially. Normally, only numeric characters in the 
range 000-999 would be used; however, any EBCDIC characters (including 
blanks) are valid entries, 


Columns 374 are preprinted so that in most cases the entry is already 
made. For example, the File Description Specifications form contains 
line numbers for lines 02 through 07. If more than six lines are needed, 
additional entries may be made below line 07 and numbered 08, O09, etc. 
The units position (column 5) may be used to insert a line between two 
previously written lines (see figure 2-1). 


Figure 2-1. Insertion of Coding Lines 


The compiler sequence~checks all input cards on columns 17-5 so that all 
lines should be numbered in ascending numerical order. If a sequence 
number (page and line number) is encountered that is equal to or less 
than the preceding sequence number, a sequence error warning eee 
(S) will be emitted by the compiler. 


FORM TYPE 


This entry identifies the type of specification for each line of code, 
This entry is preprinted for all but the Telecommunications Card 
Specifications. 


Valid entries for this field are: 


Entry Definition 


Header Card (Control Card Specification). 
File Description Specification. 
Extension Specification. 

Line Counter Specification. 
Telecommunications Card. 

Input Specification. 

Calculation Specification. 
Output~Format Specification. 

Blank Not allowed except for Comment Card or 
Dollar Card (depending upon entry in 
column 7). 


OOK PRA 


7 COMMENTS/DOLLAR CARD 


Since it is often necessary to write explanatory statements within the 
source program, the Comment Card allows the entire line to the right of 
column 7 (which contains an asterisk, '"*'') to be produced on the source 
program listing for documentation clarity. Comments are not instruc- 
tions to the RPG Program or Compiler, but serve only as a means of 
including program documentation. Any valid EBCDIC characters may be 
used in a comment line. An asterisk in column 7 overrides column 6. 

An example of comment line coding is illustrated in figure 2-2. 
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Figure 2-2. Comment Line Coding 


e ii “ae 
EEC 


The $ specification in column 7 designates the line to be a Dollar Card 
Specification which allows the RPG Compiler to accommodate machine- and 
system-dependent features. A dollar sign in column 7 overrides column 6, 
Dollar Cards may appear at any point in the RPG Source Program Deck. 
Section ll describes the use of Dollar Card Specifications. 


75780 PROGRAM IDENTIFICATION 


The PROGRAM IDENTIFICATION entry in the upper right-hand corner of each 
specification form is ignored by the compiler, but will appear on the 
source program listing. Thus, it can be used for documentation to 
identify different portions of the program, if desired, 


SECTION 3 
CONTROL CARD SPECIFICATIONS 


RPG can use a special card, called a Control Card, to provide certain informa- 
tion about the program to the RPG Compiler. The Control Card can transmit to 
the compiler such information as type of source input, whether debugging is to 
take place, Sign positions, and so forth. If columns 7 through 74 are blank, 
the Control Card is not required. One line is provided on the Control Card 
Specifications and File Description Specifications form for coding of the 
Control Card information (see figure 3-1). 

FIELD DEFINITIONS 


The fields for the Control Card Specification form are defined in the para- 
graphs that follow. 


k-2 PAGE 
Refer to Section 2 for a complete description. 
3-5 LINE 
Refer to Section 2 for a complete description. 
6 FORM TYPE 
This field must be coded with the letter H. 
15 DEBUG 
Column 15 specifies whether or not the DEBUG operation is to be 
Significant during program compilation. To perform the DEBUG opera7 
tion: 
a. Column 15 of the Control Card must be coded with a l. 


b. The operation code for DEBUG must appear in the Calculation 
Specifications, 


If this field is left blank, any DEBUG operations encountered in the 
Calculation Specifications will not be executed at run-time, but they 
will still be checked syntactically by the compiler. 1 


fas Si 
a7 


16 B-INDEXED FILES | ‘ 


Column 16 can be used to specify whether B-Indexed Files are to be 
created or used by the program. Valid entries are as follows: 


Indexed file. 
B-Indexed file. 


XS 


Burroughs B 1700 RPG 
PROGRAM ID 
PROGRAMMER 
PAGE PROGRAM 
LL CONTROL CARD SPECIFICATIONS OSes. [TI] 
RM TYPE 


LINE 


15 17 19 21 44 


51 74 
LUTTE LTTE ETT PTE TEP TTT 


5 


3 6 


ee 


ABC DE Fo G 


A. 15 Specifies whether the DEBUG operation is to be used 
during compilation. Entries: Blank or l. 


B. 16 Specifies whether B-Indexed files are to be created 
or used by the program. Entries: Blank or B. 


C. 17 Specifies the location of the sign in all numeric 
data items. Entries: Blank or L, or R. 


D. 19-20 Specifies the amount of memory in K-bytes to be 
allocated for sorting indexed files. The system defaults 
to 8000 bytes if these columns are blank. Entry: A two 
digit number. 


E. 21 Specifies the punctuation (INVERTED PRINT) to be 
used for numeric literals. Entries: Blank, I, J, or D. 


F./ 41 Causes output lines to be conditioned by the 1P 
ps indicator. Entries: Blank or 1. 


G. 51 Specifies which RPG dialect to use, RPG 1 or 
RPG II. Entries: Blank or l. 


G14006 


Figure 3-1. Control Card Specifications Summary Sheet 


17 SIGN POSITION 


This field specifies the location of the sign in all numeric data items 
and may have the following entries: 


Blank or L Sign in left-most (high-order) 
character position. 


R Sign in right~most (low~order) 
character position. 


eee | 


The sign position specified by this field may be overridden by the 
RSIGN Dollar Card Specification (refer to Section 11) if different 
Sign positions are required within the program, 


19-20 SORT MEMORY SIZE 


This field is used to specify the amount of memory to be used for sort- 
ing. The number specified is used to allocate memory in thousands of 
bytes. An entry of 24 results in the allocation of 24K. bytes of 
memory for sorting. The default value of 8K. bytes is used when this 
field is blank or no header card is included in the source card deck. 


21 INVERTED PRINT 
This field is used to specify the type of punctuation to be used for 


numeric literals in the Calculation Specifications, the order of the 
system date field, and the edit codes used on output. The valid codes 


are: 
Definition 


Domestic format. 


International format. 


International format (leading 
zeros not suppressed for zero 
balances). 


United Kingdom format. 


Table 3-1 shows inverted print specifications and their resulting 
formats. 


Table 3-1. Inverted Print Specifications 


Numeric Literal Edit Codes Zero Suppress : 
: UDATE With 
Column 21! With a Comma or With a Comma to the Left or a Siaeh oF 
Entry a Period as a or a Period as Right of the 4 Period 
Decimal Point a Decimal Point | Decimal Point 


5678.90 7,654.32 : Mon/Day/Year 


5678.90 7,654.32 : Day/Mon/Year 


5678 ,90 7,.654,32 Day.Mon. Year 


59678 ,90 7,654,32 Day.Mon. Year 


41 FORMS POSITIONING 


Since it sometimes becomes necessary to align special forms in the line 
printer before beginning to print a report, a 1 in column 41 will cause 
all output lines conditioned by the 1P indicator to be printed more 
than once when the program is executed. Each time the lines are 
printed, the program is temporarily suspended to allow the operator 

to reposition the forms. Printing of the lines may be requested by 

the operator as many times as necessary to align the forms properly. 

If this field is left blank, 1P lines are printed only once. 


ol SOURCE INPUT DIALECT 


Burroughs RPG supports two dialects. RPG 1 dialect is compatible to 

IBM 360/20 RPG. RPG II dialect is compatible to IBM System/3 RPG II. 
Both dialects support Burroughs optional extensions. The RPG II dialect 
is assumed by default. If it is required to use RPG 1 features, a 1 
must be entered in column 51 of the control card, otherwise this column 
Should be blank. The source program is not checked against the syntax 
of the chosen dialect; this option is only used to resolve conflicts 
between the dialects. Providing there is no conflict, RPG II features 
can be used when RPG 1 dialect is specified and vice versa. 


75780 PROGRAM IDENTIFICATION 


Refer to Section 2 for a complete description. 


SECTION 4 
FILE DESCRIPTION SPECIFICATIONS 


Every file to be used by an RPG program, except compile-time vector files, 
must be described to the RPG compiler through the File Description Specifica- 
tions. These specifications are used to provide information about file types, 
file names, how the files are used, record and block lengths, and hardware 
devices. The information is used to associate files with hardware devices as 
well as for other purposes. 


The B 1800/B 1700 system provides the facility for the object program to use 
the record and block lengths from the header record of existing disk files. 
This function can be inhibited by use of the dollar option REFORM. 


The maximum number of files allowed in any RPG program is 31. An index file 
and its corresponding tag file count as one file. 


The lower portion of the Control Card Specifications and File Description 


Specifications is used for coding the File Description information. Each 
file to be described requires one line on the form. 


FIELD DEFINITIONS 


Figure 4-1 can be used in conjunction with the following field definitions for 
the File Description Specifications. 


1-2 PAGE 


Refer to Section 2 for a complete description. 


375 LINE 


Refer to Section 2 for a complete description. 


6 FORM TYPE 
This field must contain a F, 


7-14 FILENAME 


This field is used to assign a unique name to every file used by the 
program. The filename must begin in column 7. Filenames must be 
assigned in accordance with the rules outlined in Section 2 of this 
manual. 


FILE FORMAT 


SEQUENCE RECORD ADDRESS TYPE, 
ENS DE Hike RECORD ADDRESS) 
FILE DESIGNATION FIELD LENGTH } 
FORM TYPE FILE TYPE PROCESSING MODE 


FILENAME LENGTH | LENGTH 
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STARTING 
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A BCDEF : ' J KLM NO P 0. R cS TU 
A. Contains name unigue in the first 7 characters for iin 32 Identifies how a file is to be accessed or whether 
every file to be used. multiple buffers are required. Entries’ I, 1-9, or Blank. + 
By 15 Specifies how each file is to be used. Entries: l, M. 33-34 Specifies the overflow indicator used to condition 
Ore oe os soe Ds records. Entries: OA-OG, OV or Blank. 
om 16 Describes the use of input, update, and combined Ns 35-38 Specifies the key field starting position in each record 
files. Entries: Blank, P, 8, C, T, or D. for indexed files. Entries: 1-4095, right-justified. 
D. 17 Specifies which files are to be checked for End-of- QO. 39 Indicates whether an output table or array file will be 
File during multifile processing. Entries: Blank or E. further described on Extension or Line Counter Specifications. 
Entries: E, L, or Blank. 
E. 18 Specifies the order matching fields are to be 
checked. Entries: Blank or A, or D. P, 490-46 Identifies the input/output device to which each file 
is assigned. Entries: READER, MFCU1, MFCU2, PUNCH, PRINTER, 
Pe, 19 Specifies whether the file contains fixed- or PRINTR2, TAPE, DISK, CONSOLE, BSCA, DATACOM, REMOTE, QUEUE. 
variable-length records. Entries: Blank or F. 
Q. 53 Entries only meaningful to the B 1700. Entries: U (un- 
G. 20-23 Specifies the block size. Entry is device dependent. labelled file), F (special forms), or B (printer backup). 
He 24-27 Specifies the record size. Entry is device dependent. R. 60-65 Specifies number of bytes of memory to be set aside for 
an index. Entries: 1-9999 right-justified. 
Ez 28 Specifies Record Address or Sequential Processing disk 
files only. Entries: Blank, L, or R. S) 66 For sequential or indexed disk files it specifies addition 
to existing file or unordered records to be loaded. Entries: 
Ae 29-30 Specifies the length of the key field. Entries: 1-99, A, U, or Blank. 
right-justified. T 70 Specifies action to be taken during close of the file 
K. 31 Describes the format of the keys within the records. (tape and disk files). Entries: P, U, Ny Bs OF Beank.. 
Entree: rebenky RO ae Pa Oe U. 71-72 Indicates whether file is to be conditioned by an 
external indicator. Entries: U1-U8 or Blank. 
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Figure 4-1. 


File Description Specifications Summary Sheet 


ge 


15 FILE TYPE 


This field is used to identify the manner in which the program uses the 
file. Valid entries are: 


Definition 


Input file, 
Output file. 
Update file. 
Combined file. 
Display file. 


I Input Files 
Input files contain records that the program uses as a source of 
data, If a file is described as input, it indicates that records 


will be read from that file. Input files must be further de- 
scribed on the Input Specifications form with the exception of 
table files, which must be described on the Extension Specifica~ 
tions form, 


O Output Files 


Output files contain records that are written, printed, or punched 
as output from the program. All output files should (not required) 
be further described on the Output~Format Specifications form, ex- 
cept for output table files. FILE DESIGNATION (column 16) must 

be blank for all output files except chained direct files. 


U Update Files 


Update files are disk files from which a program reads a record, 
changes fields in the record, and writes it back into the same 
location from which it was read. All update files must be further 
described on the Input Specifications and should (not required) be 
described on the Output~Format Specifications form. A chained 
file or a demand file may be updated at detail time, at total 
time, or at exception time, All other disk files can be updated 
only at detail time. 


C Combined Files 


Combined files are card files or remote files that can be used for 
both input or output. These files consist of: 


a. Cards that are read by the program and are subsequently 
punched and/or printed as output-. The punching is into the 
same cards that have been read, and output may occur only 
once per cycle. 


sb. Remote files that will be written re (SEND) and read from 
(RECV) during calculations. 


Combined files must be further described on the Input Specifica- 
tions and should (not required) be described on the Output-—Format 
Specifications form. 
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D Display Files 


Display files are used to print a field or record directly on the 
console printer. The DSPLY operation code must be used in the 
Calculation Specifications in order to perform the print opera- 
tion. Display files are described only on the File Description 
Specifications form. 


FILE DESIGNATION 


This field is used to further describe the use of input, update, and 
combined files. It must be left blank for all output files (includ- 
ing display files), except for chained output files. Acceptable 
entries for this field are: 


Output file. 
Primary sequential file. 


Secondary sequential file. 
Chained (random) file. 
Input table file. 

Demand file. 

Record address file. 


p Primary File 


A primary file is the principal file from which the program reads 
input records, and may be designated as input, update, or combined. 
Every RPG program must have one and only one primary file; all 
primary files described after the first one named are considered 
to be terminal errors. The primary file must be declared before 
any secondary files or a warning message is emitted. 


If there is no P entry in the File Description Specifications, a 
warning message is emitted and the first S (secondary) file de- 
fined is assumed to be the primary file. When no primary or 
secondary files are present, a syntax error is emitted. 


S Secondary Files 


Secondary files are all files other than the primary file involved 
in record selection during multifile processing. Note that this 
excludes table, chained, and demand files. These files are pro- 
cessed in the same order in which they are written in the File 
Description Specifications. A secondary file must be an input, 
update, or combined file. 


C Chained File 


A chained file may be an input, output, or update file assigned to 
a disk that uses the CHAIN operation code to read or write records 
randomly. When the chained file is an input file, records are 
read from the file. When the chained file is an update file, 
records are read from the file and can be modified and rewritten 
to the same location in the file. 


Chained indexed files may be input or update files only. 


Table File 


A table file is a sequential input file that contains vector 
entries which can be read into the program during pre-execution- 
time. Only pre-execution-time vector files are described on the 
File Description Specifications form. Pre-execution-time vectors 
must be described on the Extension Specifications form. 


Table files are only a means for supplying entries for tables 
used by the program and are not involved in record selection 
during processing at execution time. All records in table files 
read during program execution are read before any other data 
records. 


Both compile-time and pre~execution~time vectors may be changed 
at execution time; however, vector entries read during compila-~ 
tion can be permanently altered only by recompiling the program. 


A vector output file, written or punched at End-of-Job, is defined 
as a normal output file and does not require an entry in column 16. 


Demand File 


A demand file may be an update, input, or combined file from which 
records are read through use of the READ or RECV operation codes 
in the Calculation Specifications. Demand files and indexed disk 
files which are read sequentially by key can only be read 
sequentially. 


Remote devices are accessed on a demand basis through the data 
communications facilities of RPG. The RECV and SEND operation 
codes are used to cause records to be read from and exception 
records to be written to REMOTE files respectively. 


Demand files are processed as follows: 


a. During input mode, the RPG program reads a record in 
calculations and does not depend on the RPG program cycle 
to make a record available. 


b. During output mode, the RPG program allows exception records 
to be written during calculations. The desired output 
operation is performed, and program execution continues with 
the next calculation statement. The demand file does not 
have to wait for the RPG cycle to write the exception record. 


Record Address File 


A record address file must be an input file and must be described 
on the Extension Specifications. No entries are required on the 
Input Specifications for a record address file. 


A record address file can be either: 


a. A limits file that contains records consisting of lower and 
upper bound record keys that are used to process indexed 
files sequentially within limits, or 


Ds An addrout file that consists of 4-byte, relative-record 
numbers used to randomly process a disk file. 


17 


END OF FILE 


This column specifies which files are to be checked for End-of-File 
during multifile processing in order to turn the last record indicator 
(LR) ON. It applies only to input, update, and combined files declared 
aS primary or secondary files and also to record address file, and is 
used to indicate whether or not the program may end before all of the 
records from the file are processed. Valid entries for this field are: 


If this entry is blank for all 
files, all records must be read 
from all files before the program 
may end. If this entry is blank 


for only some files the program may 
end whether or not all records from 
the file have been read, 


All records in the file must be read 
and processed before the program may 
end, 


If all records from all input files must be read and processed before 
the LR indicator can be turned ON, this column must be blank (or contain 
E) for all files. 


Specifying an E in column 17 of the File Description Sheet indicates 
that the job is to end after all records are processed from the file 
for which the E was specified. In most cases, the job will end at the 
time all records from that file are processed. However, under certain 
conditions, additional records may be processed after all records from 
the file with the E designation are processed. The exceptional situa- 
tion is in matching records when an E is designated for the primary 
file and all records from that file have been processed. The job will 
end only after all secondary records that match the last primary re- 
cord have been processed or the first secondary record without a match 
field has been encountered. 


Technically, a data file never reaches end-of-file when processed by a 
record address file. The program can be forced to go to end-of-—-job when 
the record address file reaches end-of-file by making an entry in column 
17 of the File Description Card for the record address file. 


138 
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SEQUENCE 


This field is used only by primary and secondary files to indicate 


whether or not the program is to check the sequence of the input records. 


The Input Specifications form (columns 61-62) must be used to specify 
the match fields within the input file records. This entry must be 
left blank for all files other than primary and secondary files. Ac” 
ceptable entries for this field are: 


Definition 


Records with matching fields 
are to be sequence-~checked in 
ascending order. 


Records with matching fields 
are to be sequence~checked in 
descending order. 


Sequence checking is performed when matching fields have been specified 
for the records ina file. If a record from a matching input file is 
found to be out of sequence, the program halts. If the program halts, 
the operator may make one of the following entries: 


Console Message Definition 


<program number-> AXGO Ignore the record out of sequence 
and read the next record from the 
same file. 


<program number AXSTOP| Ignore the record out of Sequence, 
turn on the LR indicator, and per- 
form all final detail and total 
calculation procedures. 


<program number DS Discontinue the program, 


All sequence checking is performed according to the EBCDIC collating 
sequence (see Appendix B). If any matching file specifies descending 
(D) sequence, all files must specify descending sequence. 

FILE FORMAT 


This field specifies whether the file contains fixed- or variable-length 
records. Variable-length records may not be specified. 


Definition 


Fixed record length. 
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BLOCK AND RECORD LENGTH 


These fields are used to specify the block and record sizes for the 


file, 


detailed for the B 1800/B 1700 in table 4-1. 


Table 4-1. 


The Maximum and Minimum Values Allowed For 
Block and Record Sizes 


The minimum and maximum record and block length allowed depend 


upon the device to which the file is assigned. This information is 


Block Length Record Length 
Device 


Minimum Maximum Minimum 


CARD 
(80 col) 


CARD 
(96 col) 


Same as 
record length 


Same as 
record length 


Same as 
record length 


Same as 
record length 


Maximum 


PRINTER Same as 


record length 


Same as 
record length 


DISK 
Data files 
Addrout files 


9999 
180. 


tg eaten 


9999 


Same as 
record length 


Same as _ 
record length 


1 80 
1 96 
1 132 
1 4095 
4 4 
1 40995 
1 oO 


Block and record length entries may in certain cases be left blank. 
The treatment of the various cases is tabulated in table 4-2. 
Table 4-2. Resulting Action of Block Length and 
Record Length 


Block Record 
Length Length 


Result 


The values entered are used. 


Block and Record Length are 
defaulted to the same value. 


Invalid. 


Block length is defaulted to 
the value specified for Re- 
cord Length. 


Entries in the BLOCK LENGTH (columns 20723) and RECORD LENGTH (columns 
24-27) fields must be right-justified, and leading zeros may be omitted. 
If the BLOCK LENGTH is left blank, it is assumed to be the same as the 
RECORD LENGTH. If both the RECORD LENGTH and BLOCK LENGTH entries are 
left blank, the default sizes given in table 4-3 are assumed, 
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Table 4-3. Default Block and Record Lengths 


Block and Record 
Length 
All Printers AS 


DISK 


Data file 180 


Addrout file 4 


DATA 96, MFCU1, 
MFCU2 96 


All other devices 


The BLOCK LENGTH must be an integral multiple of the RECORD LENGTH. For 
unblocked files (note that card and printer files are unblocked), the 
BLOCK LENGTH will be equal to the RECORD LENGTH. For card and printer 
files, the RECORD LENGTH specified may be less than the maximum record 
length for the device, e.g., printer files may be specified as 96, 120, 
or 132 characters in length. 


PROCESSING MODE 
This field applies to disk files only. The acceptable entries are: 


Processing Mode 


sequential by Key. 
Consecutive. 


Sequential within limits. 


Addrout. 


RECORD ADDRESS FIELD LENGTH 
This field applies only to indexed files and record address files. 
For a record address file, the entry in this field specifies either the 
length in bytes of each record in an addrout file or the length in bytes 
of each key in a limits file. 
For an indexed file, the entry in this field specifies the length of the 
key field within the records of the file. All key fields of an indexed 
file must be the same length, and the maximum key length is as follows: 
a. Indexed files - 29 characters. 
b. B-Indexed files - 99 characters. 
The maximum key length is the same for a limits file or an indexed file. 
The entry in this field must be numeric and must be right-justified. 


Leading zeroes are not requfred. The numeric entry specifies the length 
in bytes of the key field. 
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RECORD ADDRESS TYPE 
This field is used to provide additional information about the format 


of the keys and/or the processing mode of indexed disk files and record 
address files. The acceptable entries for this field are: 


Indexed or limits file with alphanumeric keys. 


Indexed or limits file with packed keys. 


Indexed file with numeric keys in alphanumeric 


format. 


Addrout file or processed by an addrout file 
(refer to note below). 


Not an indexed file, a limits file, or an 
addrout file. Also, the file is not processed 
by an addrout file. 


NOTE 


If column 31 contains the letter I and 
column 16 contains the letter R, the file 
is an addrout file. If column 16 does not 
contain the letter R, the file is processed 
by an addrout file. 


A numeric key specified for a limits file may be of a different data 
format than the numeric key specified for the associated indexed file. 


FILE ORGANIZATION TYPE 


Column 32 identifies file organization or indicates whether multiple 
buffers are required. Valid entries are: 


Indexed file. 
Addrout file. 


Sequential or direct file with 
1-9 I/O areas. 


Sequential or direct file with 
a Single I/O area. 


NOTE 


B 1700 RPG organizational techniques are 
such that file accessing and file organi- 
zation are independent of each other. 
This is not so for other RPG implementa- 
tions. 


a 


Indexed files are assigned to disk. Data keys are required when using 
indexed files. For additional information about indexed files, refer 
to the description of columns 29-30, RECORD ADDRESS FIELD LENGTH and 
columns 35-38, KEY FIELD STARTING LOCATION in this section. 


An indexed file can be loaded in ascending key sequence or it may be 
loaded in unordered sequence. Refer to the description of column 66, 
FILE ADDITION/UNORDERED in this section for additional information. 


Sequential and direct files can have multiple I/O areas assigned to 
them. Multiple I/O areas may increase the efficiency of execution of 
the RPG program, but their use also increases the size of the program. 
A good balance between the number of I/O areas and program size must be 
found in order to achieve the greatest throughput from the system when 
programs are multiprogrammed. 


Multiple I/O areas cannot be used with table, combined, display, demand, 
indexed disk, or stacker selected files. 


If column 32 contains the letter T specifying an addrout file, column 
16 must contain the letter R and the file must be assigned to disk or 
magnetic tape. 


A limits file is defined by entering a blank or a numeric (1-9) in 
column 32 and the letter R in column 16. 


File Organization 


The following types of file organization can be used with B 1700 RPG: 


a. sequential. 
b. Indexed. 
Cx Direct. 


A detailed description of each type of file organization is presented 
in the following pages. 


Sequential Files 


The order in which records appear in a sequential file is determined by 
the order in which the records are placed in the file when the file is 
created. 


Card files and magnetic tape files are sequential files. Disk files 
can be sequential, indexed, or direct. 


Figure 4-2 shows a card file and the order in which the information 
from the cards is stored in a sequential disk file. The contents of 
cards A, B, C, D, E, F, G, and H are stored in disk segments 1 through 
8 as entries A, B, C, D, E, F, G, and H respectively. 
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Figure 4-2. Sequentially Organized Card and Disk Files 
Indexed Files 
The following type of indexed files can be used with B 1700 RPG: 
a. Indexed. 
b. B-Indexed. 


Only one of the two indexed file types can be used in a given program, 
and a file must always use the same indexing method. 


A detailed description of both types of indexed files follows: 


Indexed. Indexed files are data files on disk that have associated tag 


files. The records of the indexed file are in random sequence and are 
accessed by use of the tag file. The records of the indexed file 
contain record keys and data. The record keys are specified by the 
user. The file description for the indexed file contains information 
that describes the length, type, and starting position in the record of 
the record key. Each record contains one key whose size can range from 
one byte to a maximum of 29 bytes. 


Indexed files can be created with the record keys in either ascending 
or random sequence. When an indexed file is loaded in a random 
(unordered) sequence, the tag file is sorted in order to properly 
sequence the record keys before the user's program goes to end-of-job. 
When an ordered load is specified, the records are checked for proper 
sequencing. 


A tag file is a sequential file that contains the record keys of the 
associated indexed file and indices that reference the data records of 
the indexed file. 


A tag file record contains a key and a six-digit decimal address. The 
key is the same as the Key in the record in the indexed file that the 
address points to. The tag file records are small, and are blocked 
under control of the RPG compiler so that as many records as possible 
are placed in 180 byte blocks, thereby contributing to efficient 
searching and sorting of the tag file. For example, when the key field 
requires seven bytes, the tag file record size is ten bytes, and the 
tag file contains 18 records per block. 


B-Indexed. When the user enters a B in column 16 of the header card, a 
B-Indexed file type is specified. B-indexed files do not have associated 
tag files, so their records are normally ordered in ascending sequence 
according to the record key specified by the user. The file description 
entry for the B-indexed file contains information describing the length, 
type, and starting position in the record of the record key. 


A B-indexed file can be created with the record keys in random sequence, 
in which case the file is sorted according to the specified key before 
the user's program goes to end-of-job. When an ordered load is 
specified, the records are checked for proper sequencing. 


Direct Files 


A direct file is a disk file whose records always occupy a specific 
position (disk address) in the file, regardless of the order in which 
the records are placed in the file. Therefore, direct files are 
classified as randomly organized files. 


When a direct file is created or accessed, relative record numbers are 
used to identify the record locations within the file. 


Figure 4-3 shows a card file and a direct file on disk that was 
created from the card file. The relative records number of each card 
is the relative record number within the disk file that the record 
occupies. 
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Figure 4-3. Direct File Organization 


Note that the card file records do not have to be in Sequence by 
relative record number when the direct disk file is created. Record 
areas in the direct disk file for which no records are assigned remain 
the same, but can be overlayed with new data at a later time. 


File Processing 


The manner in which files are processed is largely independent on the 
type of file organization used to create the file. 


Files that were not created with the use of keys or relative record 
numbers cannot be’ read randomly by accessing them through an addrout 
file. The four major types of file processing that are described in 
the following pages are: 

a. Consecutive. 


b. Sequential by key. 


Cy Sequential within limits. 
d. Random. 
Consecutive 
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Consecutive file processing refers to the method of reading the records 
of a file in the order of their occurrence in the file. Sequential 
files are normally processed by consecutive file processing. Direct 
files and files designated as demand files can also be processed by use 
of consecutive file processing. 


When consecutive file processing is used to read a direct file, all of 
the records are read from the file, so that embedded records that do 
not logically belong to the file must be handled by the user's program. 
Sequential By Key 

Sequential by key file processing is used for indexed disk files that 
are designated as primary, secondary, or demand files. Records are 
read from the file in ascending key sequence until all of the records 
in the file are processed or the program goes to end of job. 

sequential Within Limits 


Sequential within limits file processing is used for processing indexed 
disk files by using either: 


a. A limits file. 
b. A SETLL operation code. 


The use of a limits file and SETLL operation code for sequential within 
limits file processing are explained in the following pages. 


AN Use Of A Limits File. Any indexed disk file that is designated a 

worimary, secondary, or demand file can be processed sequentially 
within limits by utilizing a limits file. The purpose of the limits 
file is to specify the lower and upper limits (bounds) of the indexed 
file, so that only the records within those limits are processed. Each 
record in the limits file contains two record keys that describe the 
lower and upper bounds of the indexed file. The limits file can 
contain more than one record, but each record describes only one pair 
of lower and upper bounds. 


For example, an indexed file that is alphabetically ordered by employee 
name can be accessed by using a limits file that has one or more records 
specifying the alphabetic range to be accessed. There are no 
restrictions on either the number of records or the bounds they specify. 
Therefore, the records in the limits file used to access such an 
indexed file could specify the following bounds: 

A and J 


D and J 
A and I 
F and Z 
A and Z 


The limits file can be on cards, disk, magnetic tape, or can be entered 
from the console printer. 


Limits File Requirements And Restrictions. The restrictions and format 


requirements for records of a limits file follow: 


a. Each limits file record can contain only one set of limits 
(lower and upper bounds). 


b. The same set of limits (lower and upper bounds) can appear 
in more than one record of a limits file. 


on The lower bound key must begin in position one of the record. 
The upper bound key must immediately follow the lower bound 
key. 

coe The lower bound key and the upper bound key in a limits file 


record can be the same. The result is that only the one 
data record described by the keys is read. 


e. The length of limits file records must be twice the length 
of the record key specified in the index file. Therefore, 
the addition of leading zeroes or blanks may be necessary. 
If the key length specified in the indexed file is 10 bytes, 
the length of the limits file records is 20 bytes. 


cia When the limits file is on disk, either A or P (whichever 
is applicable) must be specified for the record address type 
in column 31 of the file description of the limits file. A 
further description of the use of A and P follows in item g. 
When the limits file is not on disk, column 31 must remain 
blank, and alphanumeric keys are assumed. 


a a? 


g. The keys of the limits file can have a different format than 
the keys of the indexed file that is to be processed within 
limits. For example, the indexed file can have packed keys 
and the associated limits file can have alphanumeric keys. 


When the keys of the indexed file and limits file have dif- 
ferent formats, the following limitations apply: 


1. The length of alphanumeric key fields must be twice 
the length specified for packed key fields, minus 1 
or 2. 


2. At execution time of the RPG program, the format of 
the key in the limits file is changed to the same 
format as specified for the key in the associated 
indexed file. 


3. Only the digit portion of alphanumeric keys is 
Significant. 


h. The normal conventions for specifying the position of signs 
(left or right) within packed key fields applies to both 
indexed files and limits files. The files can have their 
Signs in different positions within their key fields. The 
appropriate Dollar Card entries must be included in the file 
description specifications when necessary. 


ci When an indexed file is to be processed within limits with 
the use of a limits file and an external indicator is 
specified in columns 71 and 72 of the file description, the 
external indicator must be coded for the indexed file. 


As When an indexed file is to be processed within limits with 
the use of a limits file and an end-of-file specification is 
desired, an E should be specified in column 17 of the file 
description specifications for the limits file. 


File Description Specifications - Indexed File. The following fields 


must be coded in the File Description Specifications when the indexed 
file is to be processed sequentially within limits, except for the 
optional entries for columns 17 and 71-72. 


Table 4-3a. File Description Specifications - Indexed File 


Column Function or 
Number Field Name Entry Description 


File type 


File designation 


End of file 


Processing mode 


Record address type 


Device 


File addition/un- 
ordered 


File condition 


File Description Specifications - Limits File. 


LEabe ohms 
Update. 
Primary. 
secondary. 
Demand. 


End of file. This entry 
1s optional. 


Processing within limits. 


Alphanumeric keys. 
Packed keys. 


The indexed file is 
assigned to disk. 


Additions to the indexed 
file are not allowed. 


External indicator. This 
entry is optional. 


The following fields 


must be coded in the File Description Specifications for a limits file 
that is used in conjunction with an indexed file. 


Table 4-3b. File Description Specifications ~ Limits File 


Column Function or 
Number Field Name Entry Description 


File type 


Input. 


Record address file. 


End of file. This entry 
is optional 


File designation 
End of file 


File format Fixed length records. 


Fixed length records. 


Block length Unblocked records. 


A multiple of the record 
length. 


Record length must be at 
least twice key length. 


Record length 


Record address 
field 


Record address 
type 
File organization 


Key length in bytes. 


Alphanumeric keys. 
Packed keys. 


One buffer. 


Number of buffers. 


A further description of 
the limits file is coded 
on the extension specifica- 
tions. 


Extension code. 


Device 
The limits file is assigned 
to the named device. 


Extension Specifications - Limits File. The following fields must be 
coded in the Extension Specifications when a limits file is used in 


conjunction with an indexed file. 


Table 4-3c. Extension Specifications - Limits File 


From filename The name of the limits file must be 
stated as it appears in the File 


Description Specifications. 


To filename The name of the indexed file associated 
with this limits file must be stated 
as it appears in the File 
Description Specifications. 


Figure 4-4 shows an example program which illustrates the use of limits 
file processing. The indexed file name DATA is processed by means of 
the limits file named LIMITS. The program reads a record in the limits 
file to obtain the first limits pair. A limits pair contains the range 
in which the file named DATA is to be processed. There are two values 
which make up a limits pair. The first value is the low Key and the 
second value is the high key. Processing of the data file begins with 
the low key and ends with the high Key. Once the high key is processed, 
the next record in the limits file is read to obtain the next limits 
pair. Processing of the data file continues until the high key of the 
last record in the limits file is processed. 


The program in figure 4-4 updates records in the file named DATA, by 
moving the literal UPDATE to the field named VALUE. 


Table 4-3d lists the contents of the file named LIMITS. 


Table 4-3d. Contents of the File Named LIMITS 


Relative Key Values in Hex 
Record 


OA 
2A 
OH 
OD 
1C 


NOTE 


OB 

2D 

Ol 

OE 

1D 
For reader convenience, ’the low and high 
keys are separated. The two keys are 


actually concatenated. For example, "OA" 
and "OB" actually appear as "OAOB". 


Since the keys are alphanumeric, the zone 
portion of the right~most character con- 

tains the sign. Refer to Appendix B for 

the hexadecimal equivalents of B 12800/ 

B 1700 characters. 


Table 4-3e lists the contents of the indexed file named DATA before and 
after the program in figure 4-4 is executed. 
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Table 4-3e. Contents of the File Named DATA 


Contents of EKach 
Relative Record in Hex 


Record 
O1 OAUPDATE 
02 OBUPDATE 
03 OC 
04 ODUPDATE 
O05 OEUPDATE 
O6 OF 
O7 OG 
08 OHUPDATE 
O9 OIUPDATE 
10 ee 
11 1A 
12 1B 
13 1CUPDATE 
14 1DUPDATE 
LS 1E 
16 1F 
17 LG 
18 
19 
20 oO 
21 2AUPDATE 
22 2BUPDATE 
ao 2CUPDATE 
24 2DUPDATE 
25 2k 


The question mark character (?) 
represents positive zero (+0). 


NOTE 


Since the keys are alphanumeric, the zone 
portion of the right~most character con- 

tains the sign. Refer to Appendix B for 

the hexadecimal equivalents of B 1800/ 

B 1700 characters. 
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Figure 4-4. Example Program Illustrating the Use of Limits 
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Use of SETLL Operation Code. Indexed files that are designated as 
demand files can be processed sequentially within limits by specifying 
SETLL in the Calculations Specifications. The indexed file can be 
designated as an input or update file, record additions are not 
allowed, and the record keys must be either alphanumeric or packed. 


NOTE 


Indexed files designated as demand files 
cannot be processed sequentially within 
limits by both a limits file and the 
SETLL operation code in the same program. 


Calculation Specifications - SETLL. The following fields of the 
Calculation Specifications must be coded when the SETLL instruction 


is to be used. 


Table 4-3f. Calculation Specifications —- SETLL 


Column | ‘ Function or 
Number Field Name EME y. Description 


Factor 1 Field name or literal.* 


Operation Operation code. 


Factor 2 File name of indexed file.* 


* This entry must be left-justified. 


The record keys can be either alphanumeric or packed. When the keys 
are alphanumeric, the field or literal length must be equal to the 
length of the key specified in the file description specifications 
for the indexed file. When the keys are packed, the field or literal 
must be numeric and the length should be less than or equal to the 
length of the key specified for the indexed file, or truncation 
occurs. 


When SETLL is specified, the lower limit of the record key for the 
indexed file to be processed sequentially within limits is established 
by the absolute value contained in a field or literal. The field or 
literal is specified in columns 18-27 of the Calculation 
Specifications. The upper limit of the record key defaults to the 
highest record key that exists in the file. 


At execution time of the RPG program, records of the indexed file are 
processed consecutively, starting with either the lowest record key in 
the file or with the record key specified by the SETLL operation. 


File Description Specifications - SETLL. When an indexed disk file is 
to be processed sequentially within limits using the SETLL operation, 
the following entries are required in the File Description Specifica- 
tions. All other fields are coded as they normally are for sequentially 
processed indexed files. 


Table 4-3¢. File Description Specifications - SETLL 


Column Function or 
Number Field Name Entry Description 


File type Input file. 
Update file. 


Demand file. 


File designation 
End of file 


Processing mode 


Limits processing. 


Record address 
type 
Device 


Alphanumeric keys. 
Packed keys. 


The indexed file is assigned 
to disk. 


Additions to the indexed file 
are not allowed. 


File addition/ 
Unordered 


External indicator. This 
entry is optional. 


File condition 


Record Processing Using SETLL. There is one exception to the normal 
convention of reading a demand file, as follows: 


When a read is performed on a demand file 
that is to be processed sequentially within 
limits using SETLL, the entire file can be 
read aS many times as desired even though 
end of file has been reached. 


Read operations performed on a demand file prior to execution of a SETLL 


instruction are performed consecutively starting with the record having 
the lowest record key. When end of file is reached, the file can be 
read again starting with the record having the lowest record key. 


Read operations performed on a demand file after a SETLL instruction 
has been executed are performed consecutively starting with the first 
record in the file whose key is equal to or greater than the low record 
key established by the SETLL instruction. When end of file is reached, 
the file can be processed consecutively starting with either: 


a. The record with the lowest record key if a new SETLL 
instruction is not executed. 


b. The first record in the file whose key is equal to or 
greater than the low record key established by a new 
SETLL instruction. 


When a read operation is specified in the Calculation Specifications, 
an indicator should be specified in columns 58-59. The indicator is 
turned on when end of file is reached on the indexed file, and remains 
on until the program turns it off. 


When a read operation is specified in the Calculation Specifications 
and no indicator is specified, the following occurs during program 
execution: 


When an end-of-file condition occurs during 
reading of the indexed file, the following 
message is displayed on the console printer: 


REOF 


Following the display of REOF, the 
operator must enter either the GO or ST 
system control instruction on the console 
printer. Entry of GO causes the program 
to continue, and reading can be performed 
and the records processed consecutively 
starting with either: 


Bis The record with the lowest 
record key if a new SETLL 
instruction is not executed. 


b. The first record in the file 
whose key is equal to or 
greater than the low record 
key established by a new 
SETLL instruction. 


Random 


Random file processing can be used for direct, indexed, and sequential 
files. Records are written to or read from the files only when chain 
statements are executed that identify the records. During program 
execution, records are read during the time that calculations are being 
performed, which allows the programmer to use data from the records for 
detail or total calculations. When a chained update file is processed 
randomly, records can be: 


a. Read and modified during the time in which detail or total 
calculations are being performed, and rewritten in the file 
during the detail or total output phase, or 


b. Rewritten during the time in which detail or total calcula- 
tions are being performed by use of the EXCPT operation code. 


Random Processing - Sequential And Direct Files. When sequential or 
direct files are processed randomly, records are selected by the use 

of relative record numbers. These relative record numbers identify the 
positions of the records in the file relative to the beginning of the 
file. For example, the relative record numbers for the first, third, 
seventh, and eighth records are l, 3, 7, and 8 respectively. 


Random Processing —- Indexed Files. When indexed files are processed 


randomly, records are selected on the basis of record key values. An 
indexed file that is an input file can be processed randomly by the use 
of relative record numbers. 


Random Processing —- Addrout Files. Addrout files are created by the 
tagsort option of SORT, and can be used to randomly process a data file. 


The addrout file is comprised of 8-digit, 4-bit, decimal-—encoded 
relative record numbers that indicate the relative position of the 
associated records in the data file. 


Any sequential, indexed, or direct organized disk file that is 
designated as a primary or secondary file can be randomly processed by 
using an addrout file. During program execution, a record containing 

a relative record number is read from the addrout file, and the relative 
record number is then used to locate and read a record from the data 
file that is being randomly processed. Only the records of the data 
file whose relative record numbers are in the addrout file are 
processed. File processing continues until an end-of-file condition 
occurs for the addrout file. 


Advantages of Using Addrout Files. The advantages of using addrout 


files for random processing of data files are as follows: 


A data file can be sorted in many different sequences 
by uSing various control fields from the records in 
the data file. 


a. 


Addrout files can be used in the processing of files 
that are organized Sequential, indexed, or direct. 


Addrout files require less disk space than comparable 
tagfiles composed of both record key fields and relative 
record numbers. 


d. More than one addrout file can be used with a 
program. 


Creating Addrout Files. An addrout file can be created by sorting a 
file with the tagsort option of SORT. Specify the same blocking 
factor in the tagsort parameters as specified in the File Description 
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Specifications for the addrout file. A blocking ‘factor of 45 is 
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preferred... If the file isnot blocked, each 4-byte relative record 
number occupiés one disk segment. For additional information about 


SORT and tagsort, refer to the B_1800/B 1700 Systems Software ~~~ 


Operation Guide, Form No. 1068731. 
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File Description Specifications - Data Files. The following entries 
are required in the File Description Specifications for a disk file 
that is to be processed randomly by uSing an addrout file. All other 
fields are coded as they normally are for consecutively processed disk 
files. 


Table 4-3h. File Description Specifications - Data Files 


Column Function or 
Number Field Name — Description 


File type Input file. 
Update file. 

File designation Primary file. 
Secondary file. 


End of file If an end-of-file test is 
desired, it should be coded 
for the addrout file. This 
entry is optional. 


File format Fixed length records. 
Fixed length records. 
Block length File is to be unblocked. 


Must be a multiple of the 
record length. 


Processing mode Addrout processing. 


Record address . Addrout processing. 
type 


Device The data file is assigned 
to disk. 


File addition/ Additions to the data file 
Unordered are not allowed. 


File condition External indicator. This 
entry is optional. 
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File Description Specifications -—- Addrout File. The following entries 
are required in the File Description Specifications for an addrout file: 


Table 4-31. File Description Specifications - Addrout Files 


Column Function or 
Number Field Name Entry Description 


15 File type Input file. 
16 File designation 


Record address file. 


17 End of file If an end-of-file test is 
desired, it should be coded 
for the addrout file. This 
entry is optional. 

19 File format Fixed length records. 


Fixed length records. 
Unblocked. 


Block length in bytes. Must 
be a multiple of record length. 


20-23 Block length 


24-27 Record length 
29-30 Record address field 


Record length in bytes. 
Record key length in bytes. 


31 Record address type Addrout file. 
32 File organization Tag records. 
39 Extension code Extension specifications. 
40 Device The addrout file is assigned to 
disk. 
71-72 File condition Not applicable. 


Extension Specifications - Addrout File. The following fields must be 
coded in the Extension Specifications when a data file is processed 
with the use of an addrout file. 


Table 4-3j. Extension Specifications - Addrout File 


Column 
Number Field Name Entry 


11-18 From filename The name of the addrout file must be 
Stated as it appears in the File 
Description Specifications. 


To filename The name of the data file associated 
with this addrout file must be stated 
as it appears in the File Description 


Specifications. 


Table 4-3k. shows which combinations of file processing methods and 
file organization types can be used with primary, secondary, demand, 
and chained files. Allowable combinations are indicated by an X. 


Table 4-3k. Valid Combinations of File Types and File Processing 


File Processing Primary, Secondary, 
Method and Demand Files Chained Files 


Consecutive Xx X X X 

sequential By key X X 

sequential Within Limits X X 

Addrout Xx x x x 

Random by Relative Record 

Number xX X 
Random By key 


xX XxX 
xX X 
Ss D B I S D B I 
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E C D X BE C D X 
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T xX OD T xX D 
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A D A D 
L L 


File Organization Type 
33-34 OVERFLOW INDICATOR 


This field applies only to files assigned to the printer, and is used 
to specify the overflow indicator used to condition records being 
printed in the file. Each printer file must have a unique overflow 
indicator assigned to it, if overflow printing (i.e., the printing of 
special lines when the overflow file is fetched) is desired for that 
file. Acceptable entries for this field are: 


OA-OG, OV Specified indicator is 
used to condition records 
in the file. 


Specifies automatic skip- 
ping. No default overflow 
indicator is assigned. 


If this field is left blank, no overflow indicator is assigned to the 
printer file. Overflow is then handled automatically by the RPG 
program. 


If this field contains an overflow indicator but no output is condi- 
tioned on that indicator, a continuous printer listing is produced. 


For additional information concerning overflow, refer to the sub- 
section of this manual titled Printer File Handling in Section 10. 


35-38 


39 


40-46 


KEY FIELD STARTING LOCATION 


This field applies only to indexed files and specifies the character 
position within each record where the key field begins. All key 
fields in the file must occupy the same position in each record. The 


entry must be numeric, and right-justified. Leading zeroes may be 
omitted. 


EXTENSION CODE 


This field applies to printer output files, table or array files that 
are to be read during program execution, and record address files. The 
contents of this field indicates whether the file is further described 
on the Extension Specifications (table and array files, or record 


address files) or the Line Counter Specifications (printer files) form. 
Valid entries for this field are: 


E An Extension Specification must 
further describe the file. This 
entry is only allowed for input 
table files ance record adcress files 


L A Line Counter Specification must 
further describe the file. This 
entry is only allowed for printer 
files. 


Blank No Line Counter or Extension Speci- 
fications are required for this 
file; however, they may still occur, 


DEVICE 


This field is used to identify the input/output device to which the file 
is assigned, or the data communication entry that indicates that the 
file is a Telecommunications file. All entries must be left-justified. 
Valid entries for this field are: 


READER 80-column card reader. 

MFCUL 96-column MFCU = primary hopper. 
MFCU2 96-column MFCU -— secondary hopper 
PUNCH 80-column card punch. 


PRINTER or Line printer. (A maximum of 5 printer 
PRINTR2 files may be specified). 


TAPE Magnetic tape. 

DISK Disk file. 

CONSOLE* Console printer, 

BSCA Telecommunications file. 
REMOTE Telecommunications file. 
DATACOM ~  Telecommunications file, 


*Only one CONSOLE file may be specified and must be 
specified as a display file (see DSPLY in Section 9), 


Any card device name (i.e., READER, PUNCH, MFCU1, etc.) is considered 
only to denote a card file. The actual type (input, output, combined) 
is determined by the entry in column 15 of the File Specifications. 
Table 4-4 lists the devices available for each of the file types. 


Limits files can be assigned to any input device. Addrout files can 
only be assigned to an input device that can also be used by the 
systems SORT utility for output. Only disk files can be processed 
sequentially within limits or by addrout files. 


Table 4-4. Device Assignment for Files 


Primary or Secondary MFCU1 or MFCU2 READER 
Input Files DISK 

TAPE 
MFCU1 or MFCU2 READER 
REMOTE 


Card 


Data Com- 
munications 


Disk 


Demand Files 


DISK 
TAPE 
MFCU1 or MFCU2 READER 

DISK 


TAPE 
Chained Input Files 


DISK 
Update Files DISK 


Tape 


Table Files 


Combined Files Card MFCU1 or MFCU2 
Data Com- REMOTE 
munications 
Output Files Card MFCU1L or MFCU2 PUNCH 
Disk DISK 
Listing PRINTER, PRINTR2 


Data Com- REMOTE 
munications 


Display File Console CONSOLE 
Printer 


The B 1800/B 1700 will also accept the following additional device 
names in column 40-46: 


READO1 PUNCH20 
MFCM1 PUNCH42 
MFCM2 PRINTUF 
READ20 PRINTLF 
READ40 DISKI1 
READ42 DISKI1F 
CRP DISK495 
CRP20 SPO 
DATA96 


If communications with a remote device is desired, the entry REMOTE, 
DATACOM, or BSCA is used. A Telecommunication Card is required for 
each data communications file declared in an RPG program. Refer to 
Section 7, Telecommunications Card Specifications, for a detailed des- 
cription of the entries required on the Telecommunication Card. 


Data communications files can be input, output, or combined files, and 
are used to reference Network Definition Language (NDL) files associated 
with the network controller. The filename in columns 7-14 of the File 
Description Card entry must be the same as the filename of the NDL file 
being referenced, or the names should be file-equated with a File state- 
ment. For information concerning the Network Definition Language, refer 
to the B 1800/B 1700 System Network Definition Language Reference Manual, 
Form Number 1073715. — 


REMOTE 


When REMOTE is specified in columns 40-45, the remote devices are 
accessed on a demand basis. The fields of the file description specifi- 
cations shown in Table 4-4a must be coded with the applicable entry 

when REMOTE is specified. The remaining fields must be coded as they 
would be for any demand file. 


Table 4-4a. File Description Specifications ~—- REMOTE 


Column Function or 
Number Field Name Entry Description 


15 File type Input. 
Output. 
Combined. 
16 File designation Demand file. 
32 File organization Blank One buffer. 
1-9 Number of buffers. 
40 Device REMOTE Remote devices are to be 


accessed on a demand basis. 


The SEND and RECV operation codes are used in calculations when REMOTE 
is specified, and allow the user to specify indicators to report on: 


a. Exception conditions. 
b. Incomplete I/O operations. 
Cc. End-of-—file conditions. 


Refer to the subsection titled Programmed Control Of Input And Output 
in section 9 for detailed information about SEND and RECV. 


DATACOM Or BSCA 

When DATACOM or BSCA is specified starting in column 40, the fields of 
the file description specification shown in Table 4-4b must be coded 
as shown. 


Table 4-4b. File Description Specifications - DATACOM or BSCA 


Function or 
Field Name Entry Description 


Device DATACOM Telecommunications file. 


BSCA Telecommunications file. 
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LABELS CELE OPEN “ Pid 


Any entry is allowed here. Only entries meaningful to the B 1700 will 
be used. Meaningful entries are: 


Definition Pal DEFINITION 
File is unlabelled. 
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60-65 CORE INDEX 


The core index is a rough table in memory which contains entries 
representing the key fields of the data file on disk. The use of the 
core index may significantly reduce the time needed to process an 
indexed file because it allows a more direct access to the specific 
record required. The program must search only a portion of the file 
instead of all entries in the file preceding the required record. The 
core index field must be blank when files other than chained indexed 
files are specified. 


This field is used only by files accessed using the CHAIN operator (i.e., 
indexed-sequential files) to specify the number of bytes of memory to 

be set aside for indexes. The entry must be right-justified, and 
leading zeros may be omitted. The maximum size that may be entered 

as 9999: 


At Beginning-of-Job, the core index is built in memory to speed the 
access time to procegS™ Me TLS. TNS TMUMmver—OT Keys Contained in 
memory is determined by taking the ke eps th as npecified in columps 
id dividing 1t into the core index as ifi 
60-65, The program then looks at the End-of-File pointer contained in 
he File Information Block to determine the total size of the file. 
The program divides the file into even partitions for the allowable 
number of keys in memory, and reads every nth record filling the core 
table in memory with just the data key fields. If no entry is made, 
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a minimum (default) number of 10 of these keys (20 keys if the keys 
are in packed or numeric form) is automatically specified. 


Once the core index is built, the program will begin processing. AS 
an access occurs, the code emitted will do a binary search of the core 
index to determine in which partition the record should be found. It 
calculates the lowest actual address and one greater than the highest 
to be used as the area to be searched for the record. At this point 
the program reverts to a binary search of the disk. 


Record 1 

Entry Record 2 
Record 3 
Record 4 

| Record 5 
Record 6 
Record 7 
Record 8 
Record 9 


Entry | 


Entry 
Entry 
Entry 
Entry 


Entry 


HME 
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Figure 4-5. Core Index Selection of Data Keys 


Several considerations should be made in space/time trade-offs when 
processing indexed-sequential files. The core index should reflect 
the size of the data file to be accessed and the number of accesses to 
be performed. When a significant number of accesses are to be per- 
formed, the core index should be as large as practical; however, the 
core index should be moderate~to-~small if only a few accesses are de- 
Sired. 


FILE ADDITION/UNORDERED 


This field applies only to sequential disk and indexed disk files and 
indicates: 


a. New records are to be added to an existing file; or 
Ds Unordered records are to be loaded into an output file. 


When an entry is made in column 66 for an indexed file, it implies that 
the tag or data file is to be ordered in ascending sequence according 
to the key specified in columns 29-31 and 35-38 of the File Description 
Specifications. 


For indexed files, the tag file is maintained in ascending sequence. 
For B-Indexed files, the data file is maintained in ascending sequence. 


Column 66 must be left blank when indexed files that are processed by 
record address files are specified. 


Valid entries for the file addition/unordered field are: 


A Records are to be added to an 
existing sequential output file 
or to any indexed disk file. 


U Records are to be loaded for an 
indexed file in unordered sequence 
(creating a new indexed file). 


Blank All files other than sequential 
output files and indexed disk 
files that are processed by 
record address files. If the 
file is an indexed output file, 
the records must be loaded in 
ascending key sequence. 


The letter A must be entered in column 66 if there is an ADD entry in 
columns 16-18 of the Output-Format Specifications record description 
of the file. 


If the letter A is entered in this field for any file other than an 
update file, all output records must have ADD specified on the Output- 
Format Specifications (columns 16-18). However, the Output—-Format 
Specifications are optional. 


Records can only be added to an existing disk file. When records are 
added to a sequential output file or indexed disk file the records are 
added at the end of the file. After all records have been added to an 
indexed disk file, the tag file or data file is sorted into ascending 
key sequence depending on the type of indexed file specified, and the 
program then goes to end-of-job. 


The coding options for columns 15 and 66 are shown in Table 4-5. 
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Table 4-5. Columns 15 and 66 Coding Options 


Read only file. Records cannot be 
added or updated. 


Read only file. Existing records 
cannot be updated but new records 
can be added. 


The indexed file is created in the 
order in which records are loaded 
to the file. It is the user's 
responsibility to ensure that 
records are in the desired order. 
A run-time error occurs if records 
are improperly ordered. 


Data records are to be added to an 
existing file. 


An indexed file is created from 
data records which may not be in 
ascending key sequence. For 
B-Indexed files, the data file is 
created in ascending key sequence. 
For indexed files, the correspond- 
ing tag file is created in ascend- 
ing key sequence. 


Read and update existing records. 


Read and update existing records 
and add new records. 


TAPE REWIND 


This field specifies the action to be taken during closing of the file, 
and includes the provision for rewind and/or lock for tape reels, where 
desired, Valid entries are: 


Definition 


purge. 
unload (lock). 


no rewind, 


release, 


remove. 


To show the effects of the various options, each type of file is dis- 
cussed separately in the paragraphs that follow. 


Card Input 


All options are ignored. The input areas are released and the unit is 
returned to the MCP. 


Card Output 


All options are ignored. The output areas are released, the trailer 
label is punched, and the unit is returned to the MCP. 


Tape Input 


The effects of the various options for tape input are: 


Releases the input areas, 
rewinds the tape, and the 
MCP marks the unit 'not ready". 


The input areas are not 
released, the tape is not 
rewound, and the device remains 
assigned to the program. 


Releases the input areas, 
rewinds and returns the unit to 
the MCP. 


Tape Output 


The effects of the various options for tape output are: 


Releases the output areas, writes 
the trailer label, rewinds the 
tape, and overwrites the label, 
thus making the tape a scratch 
tape. 


Releases the output areas, writes 
the trailer label, rewinds the 
tape, and the MCP marks the unit 
"not ready". 


Writes the trailer label. The 
tape is not rewound, and the 
device remains assigned to the 
program. 


Releases the output areas, writes 
the trailer label, rewinds the 
tape and returns the unit to the 
MCP. 


Printer Output 


All options are ignored. A page is ejected, a trailer label is written, 
and the printer is returned to the MCP. 
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Disk Files 


The effects of the various options assigned to disk are described in 
terms of "old files" and "new files". An old file is one that already 
exists on disk and appears in the MCP Disk Directory. A new file is 
one created by the program, and does not appear in the Directory. A 
new file may only be referenced by the program which creates it. 


Pp An old file is removed from 
the disk and deleted from the 
Directory, or a new file is 
removed from disk. 


| U For an old file, the file re- 

| mains in the Directory and is 

| made available. A new file is 
entered in the Directory (there- 
by making it an old file) and 
made available. 


N Use of this option is not 
permitted with disk files. 
Blank Same as for U. 
R An old file is removed from the 


disk and deleted from the Di- 
rectory. The new file is | 


entered in the Directory and 
made available. | 
FILE CONDITION 


This field applies to input (excluding table input files), update, 
output, and combined files, and indicates whether or not the file is 
conditioned by an external indicator. The entry indicates (at execu- 
tion time) whether or not the file is to be used by the program. If 
a file is conditioned by an external indicator, the file is used only 
when that indicator is ON. When the indicator is OFF, the file is 
treated as though End-of-File had been reached, and no records may be 
read or written into the file. Valid entries for this field are: 


The specified external indicator 
is used to condition the file. 


The file is not conditioned by 
an external indicator. 
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External indicators (U1-U8) may be used to condition files. For 
example, a Single program may have two uses. On some occasions, two 
files may be required to be read (or written); on others, only one file 
may be required to be read (or written). The optional file can be 
conditioned by an external indicator. 


For example, in a program that has two applications, external indicators 
determine which application has been selected and what files are to be 
read (or written). 


If a file is conditioned in this way, records written to the output file 
may also be conditioned by the same indicator on Output Specifications. 
If an output file is conditioned by an external indicator, every output 
record described on the Output-Format Specifications for that file 
Should be conditioned by the same external indicator, otherwise the 
object program will still build the output record and perform blank- 
after operations but suppress the write operation. Any calculation 
operation which should not be done when the file is not in use 
(especially CHAIN and READ operations) may also be conditioned by the 
same indicator, otherwise the object program will automatically 
condition the CHAIN or READ on the same external indicator. 


If an external indicator is entered in columns 71-72 for a record 
address file, the same indicator must be assigned to the associated 
data file. 


It is the user's responsibility to set the external indicators (U1-U8). 
The external setting and interrogation of the external indicators is 
done by the use of eight one-bit program switches numbered 1 through 8. 
Each switch can contain a value of O or 1, and can be set at run time 

by including the switch attribute as part of the EXECUTE statement. The 
syntax for assigning values to the program switches is as follows: 


EXECUTE <program name> SW <switch number> <switch value> 
The following EXECUTE statement would turn on external indicator U1: 
EXECUTE RPG/TEST SW 1=1 


The program switches can also be permanently initialized by using the 
MODIFY control instruction as follows: 


MODIFY <program name> SW <switch number> <switch value> 


When any (but not necessarily all) of the program switches are initial- 
ized with the SWITCH attribute used with either the EXECUTE or MODIFY 
control instruction, console printer input is not requested at program 
execution time. If the switches are not initialized, operator action 
is required to set the external indicators by use of the AX input 
message in response to an ACCEPT message. The following examples show 
the use of the AX input message: 


<program number-> AX1 (This message results in setting Ul.) 


<program number. AXO1l (This message resets Ul and sets U2.) 


PROGRAM IDENTIFICATION 
Refer to Section 2 for a complete description. 


Figures 4-6 through 4-13 show coding examples for a variety of file 
types. 
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4-36 


Burroughs Report PROGRAMMING GENERATOR 


PROGRAM ID PAGE OF 
PROGRAMMER DATE 
1 2 ie 80 
race [ | | CONTROL CARD SPECIFICATIONS (ilgdial Gereee G0 ee ei 


FILE DESCRIPTION SPECIFICATIONS 


FILE FORMAT 


NOT USED 
RECORD ADDRESS TYPE FILE CONDITION 
SEQUENCE FILE ORGANIZATION TYPE eaee Cee 
END OF FILE RECORD ADDRESS OVERFLOW INDICATOR ae 


FILE DESIGNATION FIELD LENGTH 


NOT USED 
FORM TYPE FILE TYPE | 


PROCESSING MODE EXTENSION CODE LABELS ~) FILE ADDITION/UNORQERED 


DEVIte 


es 
z 
m 
i, 
rT 
m 
2 
> 
= 
m 
= —— 
te 
r 
m 
2 
(7) 
+ 
x 
i 
mom 
Zz 
oo 
4D 
Ig 
2 ~« 
3 —_—— 
— Pane ee 
Ww 
co 
KEY FIELD 
STARTING 
uw LOCATION 
co 
oO 
= 
nD 


oR Tere ff Nie anne TTT NS AHH 
opt del TLL EL tle | PEs h. SEAT TANS 
let Ter TTT TTT tls FEM can ti - pitisiid | | NN AN TT?) 
ols FLL TL RCTE TE o iSeaEu EIS. _ NY +} NN 
ois] FLT TET rit len fe a peas Diaisik | | h OGRE, 
er a PPE EEE ET EEE ET iishg | | | NASR 
a 4 aes +H ae tole EE EACH Bast \ thy 
PTETECT ET TT uit [le aa tt | 1's ANY aoe aN - 
Pe RL RANDIOM| CHAIN Witirla| trlelulalrisiviel | neat \ NA 
pee a pepe PELE Drisikt | | MOXA AQAA ‘le tN, | 
‘TLE Fle eT Baie “Cpitisie (TR Rt Ae 
E feb CCRT) ATLL hs | TE LTETL LENS Hee 
ell FETT TTT Tot tte EET TT irish TT NAN ANG 
oe TLE ASD TIONS OME ARES CULTIST 
TTT ToL eT TTT TTT TTT ois TT AWS SNRAETOTt at YLT | 
PideEE TT EET EEE EE ELLE EET EET LETT RS AANENAANAN SRE rk ATR 
G12031 
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Example of File Description Entries for Direct Files 


Figure 4-8. 
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Example of File Description Entries for Card Files 


Figure 4-9. 
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Figure 4-10. Example of File Description Entries for Tape Files 
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Figure 4-11. Example of File Description Entries for Console Files 
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Figure 4-12. 
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Figure 4-13. Example of File Description Entries for Record Address Processing 


The following figures illustrate RPG coding examples for indexed and direct 
files. Figure 4-14 illustrates the updating of an existing file; figure 4-15 
illustrates the creation of a new file. 
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Figure 4-14. Indexed and Direct Files - File Update 
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Figure 4-15. Indexed and Direct Files - File Creation 
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VECTORS AND EXTENSION SPECIFICATIONS 


Extension specifications are used to describe all tables, arrays, and record 
address files that are specified in an RPG program. 


The Extension Specifications Summary Sheet, form number 1057924, is used for 
coding the field information that is described in the following pages. 


'TELD DEFINITIONS 


Figure 5-1 can be used in conjunction with the following field definitions for 
the Extension Specifications. 


1-2 PAGE 

Refer to Section 2 for a complete description. 
3-5 LINE 

Refer to Section 2 for a complete description. 
6 FORM TYPE 
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11-18 FROM FILENAME 


This field is used to name a record address file or a pre-execution- 
time vector file, and must contain the filename of every record 

address file and every pre-execution-time vector file to be used by the 
program. The file must be specified on the File Description Specifica- 
tions as an input record address file or as an input table file. The 
same record address file must not be named in more than one Extension 
Specification entry. 


If the vector is to be loaded at compile time or by Input or Calculation 
Specifications during program execution, this field must be left blank. 


Filenames must always be entered in this field left-justified. When 

a vector is loaded at compile time, it becomes a permanent part of the 
program so that a vector file is not needed when the program is execu- 
ted. Only those vectors that do not change often should be compiled 
with the program. When vectors are being compiled with the program, the 
vector data must follow the source program deck. 


19-26 TO FILENAME 


The TO FILENAME field defines the relationship between a file named in 
this field and a file named in the FROM FILENAME field, columns 11-18. 
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11-18 Contains the file identification of 
a record address file or the name of a pre- 
execution time vector file. 


19-26 Contains the file identification of 
the file to be processed by a record address 
file or the name of the file to which vector 
will be outputted. If blank, vector not to 
be output at EOJ. 


27-32 Contains the name of the input table 
or array. Entries: TABXXX (X= any alpha- 
numeric character) or 1-6 alphanumeric 
characters. Also used to name the first of 
two alternating vectors. 


33-35 Specifies the exact number of entries 
contained in each vector input record. 


36-39 Specifies the maximum number of items 


contained in the first vector named. Entry 
maximum: 4095, right-justified. 


Figure 95-1. 
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40-42 Specifies the length (in bytes) of 
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eric entry is 31, maximum alphanumeric entry 
is 511, right-justified. 


43 Specifies if the external vector elements 
are in binary, packed, or unpacked decimal 
format. Entries: Blank, B, or P. 


44 Specifies the number of decimal positions 
contained in each element. Entries: Blank 
or 0-9. 


45 Specifies the sequence in which elements 
will be loaded for the first vector. 
Entries: Blank, A or D. 


46-57 These columns are used to describe the 
second of two alternating vectors. Entries 
are of the same type as specified for the 
first vector. The second vector is loaded 
in alternating format with the first. 


Extension Specifications Summary Sheet 
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Filenames must be left-justified beginning in column 19. Valid entries 
for this field are: 


Name of an 
input or 
update file 


The file processed via the record 
address file named in the FROM 
FILENAME field. 


Name of an 
output file 


The output file on which a table 
or array is to be written at EC. 


If a record address file is named in the FROM FILENAME field, columns 
11-18, then the name of the primary or secondary file that contains the 
data records to be processed must be entered in the TO FILENAME field, 
columns 19-26. This primary or secondary file can be an input or 
update file and must not be specified in any other Extension Specifi- 
cations entry. 


If a file is specified on the File Description Specifications as being 
processed by an addrout file, then its filename must be entered in the 
TO FILENAME field, columns 19-26, and an appropriate filename must also 
be entered in the FROM FILENAME field, columns 11-18. 


If a file is specified on the File Description Specifications as being 
processed as a limits file, then its filename must be entered in the 
TO FILENAME field, columns 19-26, and an appropriate filename must be 
entered in the FROM FILENAME field, columns 11-18. 


If a table or array is to be written or punched, then enter the desig- 
nated output file in the TO FILENAME field, columns 19-26. This output 
file must have been previously defined in the File Description 
Specifications. 


Execution time arrays cannot be written at end of job. In order toe 
produce an array or table, the FROM FILENAME, TO FILENAME, and ENTRIES 
PER RECORD fields must have entries specified. 


If a table or array is to be written or punched, it is automatically 
written or punched at the end of job after all other records have been 
written or punched. 


An array or table can be written to only one output device. More than 
one array or table may be written to the same output file, but it is 
the user's responsibility to ensure that this is a meaningful thing 

to do. 


27-32 VECTOR NAME 


This field is used to name -ttables and arrays to be used by the program. 
Each vector name must be unique, and must TS Llow the rules for the 
formation of vector names as described in Section 2. Table names must 
begin with the letters TAB (note that this includes the name TAB itself); 
any name appearing in this field which does not begin with TAB is con- 
Sidered an array name. 


Vector files are processed in the same order in which they appear on the 
Extension Specifications form. Thus, if more than one vector file is 


specified for the program, the files must be loaded in the same order 
in which they appear on the form. 


If two related vectors are in alternating form within one vector file, 

the first vector must be named in columns 27-32, and the second vector 

must be named in columns 46-51. Any combination of vector types (table 
or array) is allowed in alternating format. (For more information, see 
columns 46-57 in this section. ) 


33-35 ENTRIES PER RECORD 


This field is used to specify the number of entries in each vector input 
record. Every record except the last one must contain the number of 
entries specified in this field. The last record may contain fewer 
entries than specified in this field. The possible entries that can be 
made in this field follow: 


The number of vector entries 
contained in each vector input 
record. 


This vector is a dynamic/ 
execution-time vector. 


Entries in this field must be right-justified, and leading zeroes are 
not required. Corresponding items from related (alternating) vectors 
must be on the same record and in alternating format. Each pair of 
items is considered one entry. The number of entries per record must 
not exceed the number of entries per vector specified in columns 36-39. 


The FROM FILENAME and ENTRIES PER RECORD entries are used to determine 
the type of vector and therefore how it will be loaded. Table 5-1 is 
a guide for determining vector type. 


Table 5-1. Guide for Determining Vector Type 
Vector Type FROM FILENAME ENTRIES PER RECORD 
Compile~Time Blank 


Pre-~Execution Time 
Dynamic/Execution Time 


36-39 ENTRIES PER VECTOR 


This field is used to specify the maximum number of elements that can be 
contained in the vector named in the first VECTOR NAME field (columns 
27-32). A maximum of 4095 elements per vector is allowed. For vectors 
to be loaded in alternating format, this number also applies to the one 
named in the second VECTOR NAME field (columns 467-51). Entries in 

this field must be right-justified; leading zeros may be omitted. 


40-42 LENGTH OF ENTRY 
This field is used to specify the length (in bytes) of each element in 


the vector named in the first VECTOR NAME field (columns 27-32). For 
numeric vectors in packed decimal format, enter the number of digits. 


43 


44 


Entries in this field must be right-justified; leading zeros may be 
omitted. 


Numeric items in the vector input records must have leading zeros added 
if their ITength is less than that specified; alphanumeric entries must 
have either leading or trailing blanks. 


The maximum length of a numeric vector element is dependent on the for- 
mat of the data, and is as follows: 


Format Maximum Length 
Unpacked numeric 31 characters 
Packed numeric 33 digits 
Binary 4 or 9 digits 
The maximum for an alphanumeric vector element is 511 characters. How- 


ever, an element must be completely contained on one record; therefore, 
input record sizes will also limit the maximum element sizes. 


PACKED 


This field specifies the external format of the vector data. Acceptable 


entries are: 
Definition 


Blank Vector elements are in 
either unpacked decimal 
or alphanumeric format. 

p Vector elements must be 


in packed decimal format. 


Vector elements must be 
in binary format. 


Any vector (including compile-time vectors) may be packed and may be 
either right or left signed (as specified in the Control Card or by the 
dollar option RSIGN). 


Pre-execution-time vectors can be in packed decimal format unless the 
filename specified in columns 19-26 is that of a printer file. 


For vectors that are loaded or modified as a result of Input Specifi- 
cation entries, the Sign position and format (packed or unpacked) 
described on the Input Specifications dictate the external data format. 


Binary compile-time vectors are not allowed. 


“ey 


DECIMAL POSITIONS 


This field: 
a. Is used to specify the number of decimal positions contained 
in each element of the vector named in the first VECTOR NAME 
field (columns 27-32). If the elements have no decimal posi- 


tions, a zero must be entered in column 44. This field must 
not be blank for a numeric vector or if column 43 contains a P. 


O-5 


45 


46-957 


b. Defines whether a data item is in numeric or alphanumeric for- 
mat. Column 40 (LENGTH OF ENTRY) defines the length of the 
item. For alphanumeric data items, the entry specifies the 
number of bytes. For numeric data items, including those in 
packed or binary format, the entry specifies the number of 
digits. For binary data items, either a 4 or a 9 must be 
specified. 


Note that it is possible to define the 
Same numeric data items differently on 
the Extension Specifications and on the 
Input Specifications. 


Example: 


A pre-execution-time array that is specified on the Extension Specifi- 
cations can indicate that the data items are in packed numeric format, 
and the Input Specifications can specify that the data item is in 
unpacked numeric format. 


The acceptable entries for this field are: 


Number of positions to the 
right of the implied deci- 
mal point for numeric 

vector elements. 


Alphanumeric vector. 


SEQUENCE 


This field is used to specify the sequence in which elements will be 
loaded for the vector named in the first VECTOR NAME field (columns 
27-32). A vector loaded at compile or pre-execution time is checked 
for the specified sequence. A Sequence error at compile time generates 
warnings in the source listing. A sequence error at pre-execution time 
causes the program to be discontinued. The sequence check does allow 
two consecutive elements to be equal. This column must contain an 
entry if high or low LOKUP is to be used. Alternate vectors need not 
have the same sequence. 


Valid entries for this field are: 


Blank Unordered elements. 


Elements arranged in 
ascending order. 


Elements arranged in 
descending order. 


VECTOR NAME, LENGTH OF ENTRY, PACKED, DECIMAL POSITIONS, SEQUENCE 


These fields are used only when describing a second vector which is ‘i 
loaded in alternating format with the vector named in the first VECTOR 
NAME field (columns 27-32). <All of these fields require the same type 


of entries as the corresponding fields in columns 27-45, but entries 
in columns 46-57 apply only to the second vector. For a single vector 
description, these fields must be left blank. Compile-time vectors, 
pre-execution-time vectors, and dynamic/execution-time arrays can be 
specified as alternating vectors. 


08-74 COMMENTS 


This field is available for inclusion of comments and documentary 
remarks, and may contain any valid EBCDIC characters. 


75-80 PROGRAM IDENTIFICATION 

Refer to Section 2 for a complete description. 
VECTORS 
GENERAL 


Tables and arrays are logical configurations of data elements that have similar 
characteristics. Within the scope of this manual, very little distinction is 
made between tables and arrays, and therefore they are usually referred to as 
vectors. Where differences exist in their characteristics, they are referred 
to individually as tables and arrays. 


Each element of a vector must be of the same length and data type (numeric or 
alphanumeric). All numeric elements must have the same number of decimal 
positions. 


TABLE AND ARRAY DIFFERENCES 


Every vector to be used by the program must be given a name. All table names 
must begin with the letters TAB. Array names can begin with any alphabetic 
character. 


: oe 
(Indices can be used to access specific elements within tables and arrays. 7 


If a table name appears without an index, it refers to the last item referenced 
in the table. 


If an array name appears without an index, it refers to the entire array. Such 
a reference specifies that the designated operation be performed repetitively 
for each element of the array. 


TYPES OF VECTORS 


The three types of vectors and the time at which they are loaded with data 
follows: 


Vector Type Time Loaded 


During RPG program generation. 


Compile time 


At the beginning of RPG program 
execution. 


Pre-execution time 


Dynamic/execution time During RPG program execution. 


Data elements for all types of vectors can be altered at any time during 
program execution. 


REQUIRED ENTRIES FOR EXTENSION SPECIFICATIONS 


All vectors for a program must be described on the Extension Specifications 
form. Several of the fields of the Extension Specifications require entries 
for each type of vector, regardless of the time at which the vector is loaded. 


Figure 5-2 illustrates which fields require entries for each of the three 
types of vectors 
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Figure 5-2. Entries Necessary to Describe a Vector 


Columns 27-45 are used as needed to specify the name assigned to identify the 
vector (VECTOR NAME), the number of vector elements occurring in each input 
record (ENTRIES PER RECORD), the size of the vector (ENTRIES PER TABLE OR 
ARRAY and LENGTH OF ENTRY), whether the input data is in binary, packed or 
unpacked decimal format (PACKED), the number of decimal positions in each 
entry (DECIMAL POSITIONS), and the order in which the elements are sequenced 
(SEQUENCE). 


Additional entries are required if: 


a. The vector is to be Joaded at pre-execution time from the file 
named in the FROM FILENAME fieldv-----~ 
b. The vector is to be written to the output file named in the TO 


FILENAME field at End-of-—Job. 


Any file named for vector loading or vector output must also be described on 
the File Description Specifications. 


For dynamic/execution-time vectors, the FROM FILENAME, TO FILENAME, and the 
ENTRIES PER RECORD firetds—must be left blank because dynamic vectors cannot be 
written at End-of-Job. 


COMPILE TIME VECTORS 


For a compiler-time vector load, the data to be loaded is read into the pro- 
gram storage area reserved by the entries in the Extension Specifications at 
the same time that the source program is compiled. Physically, the data is 
placed in a card file called "RPG/VECTOR", which immediately follows the 
source deck (see figure 5-3). 


For a compile-time vector load, short vectors (those which are only partially 
full) are not allowed. Each vector file must occur in the order in which it 
was specified, and must contain exactly the number of records necessary to fill 
it with data. No separators are used to delimit the end of one vector file and 
the beginning of the next; the compiler reads input records until one vector is 
full, and then proceeds to fill the next one in order. 


Compile-time vectors can be changed by either Input or Calculation Specifica- 
tions. 


COMPILE-TIME VECTOR LOAD 


To load a compile-time vector, all that is necessary is to include the data 
cards for the vector in the proper order in the file "RPG/VECTOR" (figure 5-3). 
The compiler will automatically read this file after the source program has 
been read, and will load the data into the vectors declared. 


VECTOR DATA CARDS 
? DATA RPG/ VECTOR 


? DATA RPG/CARD 
?COMPILE... 


G14024 


Figure 5-3. Setting Up a Data Deck For a Compile-Time Vector 


If more than one compile-time vector has been declared, care must be exercised 
in setting up the data deck. The compiler expects data for the vectors to be 
entered in the same order in which they were declared in the Extension Specifi- 
cations form. The compiler reads data cards and stores the elements in the 
first vector until it is full, then proceeds to do the same for the second 
vector, and so forth. If more or fewer records are present than are necessary 
to exactly fill a vector, data will be placed into the wrong vector. See 
figure 5-4 for an example of a compile-time vector load declaration. 
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Figure 5-4. Compile-Time Vector Load 


COMMENTS 
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PRE-EXECUTION TIME VECTORS 


For a pre-execution time vector load, the data to be loaded is read into the 
program storage area reserved by the entries in the Extension Specifications 

at the beginning of object program execution, before the normal operations in 
the program cycle begin. The data for each vector is placed in a file, identi- 
fied by the names assigned in the File Description Specifications. 


More than one vector may be loaded from the same file. Short vectors are not 
allowed with pre-execution time vector loads. 


Pre-execution time vectors can be changed by either Input or Calculation 
Specifications. 


PRE-EXECUTION TIME VECTOR LOAD 
To load a pre-~execution time vector, the data to be loaded must be placed in 


the file described in the File Description Specifications to which the vector 
is assigned (FROM FILENAME). Data is read in at the beginning of program 


execution and placed in the vector until the vector is full. If more than one 
vector (not in alternating format) is assigned to a single file, some special 
considerations must be taken into account (see figure 5-5). Vectors are still 


loaded in the same order that they are specified in the Extension Specifica- 
tions, so that files will be opened, read, and closed as necessary to load 
the designated vectors. If two vectors are assigned to the same table file, 
and no other pre~execution time vector declaration comes between them, the 
data for both must be in the same card file. No separators are allowed be- 
tween the data decks, so that restrictions are imposed the same as those for 
compile-time vector loads. 
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Figure 5-5. Pre-Execution Time Vector Load 


Input Specifications or Calculation Specifications. Certain fields of input \. 
records or the results of calculation operations may be used to load the ele- } 
ments of a dynamic vector. Such loading, unlike the automatic loading of 
compile-time and pre-execution time veetors, is completely under programmatic\ 
control. 


All vectors can be altered during program execution, regardless of when they | 
were loaded initially. Because of this, all vectors may be considered to have \ 
"dynamic" characteristics. aN 
ae 


To load a dynamic vector, the data elements may be obtained from fields within 
input records or from the result of operations in the Calculation Specifications. 
Figure 5-6 provides coding examples on the File Description Specifications and 
the Extension Specifications for dynamic vector loading. 
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Figure 5-6. Dynamic Vector Loading 
Input Specifications Load 


Fields within input records may contain data for vector loading. This 
is done by assigning a vector name with an index or an array name 
without an index as a field name within an input record description 
(see figure 5-7). If a FIELD NAME (VARIABLE NAME) designates a single 
element of the vector, the input field will be placed into the vector 
element when the record is selected. If FIELD NAME designates an 
entire array (no index assigned), the input field length must be an 
integral multiple of the element size (LENGTH OF ENTRY) and equal to 


or less than the total size of the array. If the input field is less 
than the size of the array, the elements not referenced will not be 
affected. 
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Any operation which specifies a vector (with or without an index 
FIELD will cause the designated vector element (or entire array, 


Specifiec) to be loaded with the result of the 


Calculation Specifications Load 


if no index is 


see figure 5-8 for 
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for vectors. 
CALCULATION SPECIFICATIONS 


an example of a load via the Calculation Specifications. 
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RULES FOR LOADING A VECTOR 
The following rules must be observed in regard to loading vectors: 


a. For a vector to be loaded at pre-execution time, entries are 
necessary in the FROM FILENAME and ENTRIES PER RECORD fields. 


b. For a vector to be loaded at compile time, the FROM FILENAME field 
must be blank and an entry must be made in the ENTRIES PER RECORD 
field. 


Ce Vector loading is not implied if the FROM FILENAME, TO FILENAME, and 
ENTRIES PER RECORD fields are blank. Vectors whose specifications 
contain blanks in those fields can be loaded as a result of Input 
or Calculation Specifications, which are execution-time loads. 


VECTOR OUTPUT 


Compile-time and pre-execution time vectors may be written to an output device 
at End-of-—Job by specifying an output file in the TO FILENAME field of the 
Extension Specifications. This vector output is performed automatically after 
all processing has been completed. Vector records will be in the format 
specified by the Extension Specifications. 


Dynamic vectors cannot specify a TO FILENAME, and thus cannot be automatically 
written out at End-of-—Job. 


Also, an entire array may be written during output time by specifying the array 
name without an index as field names (VARIABLE NAME) in the Output-—-Format 
Specifications. If an entire array is to be output in this way, the end 
position specified must allow sufficient space for all elements of the array, 
allowing for any editing. For editing of a whole array see Section 10. 


VECTORS IN ALTERNATING FORMAT 


Vectors specified as occurring in alternating format have related elements con- 
tained in alternating format on each input record (see figure 5-9). The two 
vectors need not be of the same size (LENGTH OF ENTRY), type (numeric or alpha- 
numeric), or sequence order, but they must have the same number of elements con- 
tained on each input record, and each vector must contain the same number of 
elements (NUMBER OF ENTRIES PER TABLE OR ARRAY). Each pair of elements on the 
input record is considered one entry. The first element of each pair belongs to 
the vector described in columns 27-45; the second element belongs to the vector 
described in columns 46-57. 
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Figure 5-9. Vectors in Alternating Format 
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SECTION 6 


LINE COUNTER SPECIFICATIONS 


Line Counter Specifications are used only for line printer files to: 
a. Specify form length. The default is 66 lines. 
b. Specify the overflow line. 
Cie Define the line - channel equations that are associated with the 
carriage control format tape that must be installed on the printer 


when the program is executed. 


Line Counter Specifications are required when using the RPG I dialect but are 
optional when using the RPG II dialect. 


LINE - CHANNEL EQUATIONS 

The LINE NUMBER, FL OR CHANNEL NUMBER, and OL OR CHANNEL NUMBER fields are used 
to specify line number - channel relationships referred to as line - channel 
equations 

CHANNEL 

The word "channel" is used in conjunction with the format or carriage control 
tape that is installed on the line printer. The carriage control tape is used 
to assist in the movement and positioning of the paper as it passes through the 
print mechanism. 


LINE NUMBER - CHANNEL NUMBER 


The LINE NUMBER and CHANNEL NUMBER fields are used to relate a line that is to 
be printed with a channel punch in the line printer carriage control tape. 


FIELD DEFINITIONS 


Figure 6-1 can be used in conjunction with the following field definitions for 
Line Counter Specifications. 


1-2 PAGE 

Refer to Section 2 for a complete description. 
3-5 LINE 

Refer to Section 2 for a complete description. 
6 FORM TYPE 


This field must contain the letter L. 
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Figure 671. 


LINE COUNTER SPECIFICATIONS 


NUMBER 
NUMBER 
NUMBER 
NUMBER 
& CHANNEL 


7-14 Specifies the name of a printer file. 


15-17 If 18-19 contains FL, this entry specifies 
the length of the page or form length. If 18-19 
are numeric, this entry specifies the number of 
lines from the top of the page to associate with 
that channel number. Entries: 1-112, right- 
justified. 


18-19 Designates the use of the numeric entry in 
columns 15-17. Entries: FL or 1-12, right-justified. 


20-22 If 23-24 contains OL, this entry specifies 
the line number of the overflow line. If 23-24 
are numeric, this entry specifies the number of 
lines from the top of the page to associate with 
that channel number. Entries: 1-112, right- 
justified. 


23-24 CHANNEL NUMBER associated with the overflow 
line designated in columns 20-22. Entries: OL or 
1-12, right-justified. 


25~74 CHANNEL NUMBER related to preceding LINE 
NUMBER entry. Entries: 1-12, right-~justified 
LINE NUMBER designates a particular line on each 
page. Entries: 1-112, right-justified. 


Line Counter Specifications Summary Sheet 


S NUMBER 


NUMBER 


NUMBER 


15-19 


614030 


20-24 


FILENAME 


This field is used to specify the name of the printer file to which 
these Line Counter Specifications apply. The filename must also be 
described on the File Description Specifications and must be assigned 
to a printer. The entry in this field is required and must be left- 
justified. 


LINE NUMBER, FL OR CHANNEL NUMBER 


These fields have two possible meanings, depending upon the entry in 
columns 18-19. 


If columns 18-19 contain the entry FL (Forms Length), the entry in 
columns 15-17 specifies the length (in print lines) of each page. The 
LINE NUMBER field entry must be between one and 112, inclusive, and be 
right-justified in the field, and leading zeroes are optional (see 
figure 6-2). 


If columns 18-19 contain a numeric entry between one and 12, inclusive, 
the entry in columns 15-17 specifies the number of lines from the top 
of the form to be associated with the CHANNEL NUMBER entry designated 
in columns 18-19. The LINE NUMBER entry must be between one and 112, 
inclusive. Both entries must be right-justified in their respective 
fields, and leading zeros are optional (see figure 6-2). 


FORM TYPE LINE COUNTER SPECIFICATIONS 


NUMBER 
CHANNEL 
NUMBER 


wi 
é 
3 


LISTL specified channel 1 as line 10 and channel 12 as line 50. 
LIST2 specifies the form length (50 lines) and channels 1 and 12. 


LIST3 specifies the form length (80 lines) and the overflow line 
(line 60). 


Figure 6-2. Line Counter Specifications Code Example 
LINE NUMBER, OL OR CHANNEL NUMBER 


This field has two.possible functions, depending upon the entry in 
columns 23-24. 


RPG II Dialect Only 


When OL is entered in columns 23-24, the entry in columns 20-22 
specifies the line number that will be considered the overflow line. 
The overflow line must be less than or equal to the form length. When 
the destination of a space or skip operation is a line beyond the over- 
flow line but not beyond the form length the overflow indicator 


6-3 


specified for the file is turned ON to indicate that the end of the page 
is near. If the destination is beyond the form length the overflow 
indicator does not turn ON. 


When the output is conditioned on an overflow indicator or fetch over- 
flow is specified and the overflow indicator is ON, the following actions 
will take place before the forms are advanced to the next page: 


a. Detail lines still to be printed as part of the current program 
cycle will be completed. 


b. Total lines will be printed. 


ec. Total line conditioned by the overflow indicator for this file 
will be printed 


d. Heading and detail lines conditioned by the overflow indicator for 
this file will be printed. 


Since all these actions will take place after the overflow line is 
reached, the programmer should be certain that enough space is left 
between the overflow line and the bottom of the page to allow all the 
lines to be printed. Refer to the subsection titled Printer File 
Handling in the Output-Format Specifications section for detailed 
information about overflow handling. 


RPG I Or RPG II Dialect 


If columns 237-24 contain a numeric entry between one and 12, inclusive, 
the entry in columns 20722 must specify the number of lines from the 
top of the form to be associated with the CHANNEL NUMBER entry (columns 
23-24). The LINE NUMBER field entry must be between one and 112, in- 
clusive. Both entries must be right-~justified in their respective 
fields, and leading zeros are optional (see figure 6-2). 


29-74 LINE NUMBER AND CHANNEL NUMBER 


The rest of the form is divided into ten 5-character fields, each con- 
Sisting of a 3-character LINE NUMBER field and a 2-character CHANNEL 
NUMBER field. All fields are optional and must be left blank if they 
are not to be used (see figure 6-2). 


The CHANNEL NUMBER fields may contain a numeric entry between one and 
12, inclusive. This CHANNEL NUMBER entry is associated with the cor-~ 
responding LINE NUMBER field entry (between one and 112, inclusive) 
and is used to relate a channel number to a particular line on each 
page of the output forms. The same channel numbers must not be speci- 
fied more than once on the same Line Counter Specification. 


All entries must be right-justified in their respective fields. lLead- 
ing zeros are optional. 


The LINE NUMBER field entry must not be greater than the form length 
specified in columns 18-19 or the default value of 66. 


75-80 PROGRAM IDENTIFICATION 


Refer to Section 2 for a complete description. 


PRINTER CHANNEL SKIPPING 


The user can control printer channel skipping by making appropriate entries in 
the RPG source program specifications. The entries in the specifications and 
the results obtained are different for the two RPG dialects, as defined in the 
following paragraphs. , 


CHANNEL SKIPPING - RPG II 


When forms skipping is specified in columns 19-22 of the Output-Format Specifi- 
cations, the entry refers to the line number on the form or page to be printed. 


When a LINE NUMBER and CHANNEL NUMBER are entered in columns 15-19 of the Line 
Control Specifications form, a reference to a line in output for which a cor- 
responding line - channel equation exists will result in the generation of a 
channel skip. 


Example: 


If the Line Control Specifications describe a line - ehannel equation which 
specifies that line 28 is equal to channel 3, then any time an output specifica- 
tion references a skip to line 28, a skip to channel 3 results. 


CHANNEL SKIPPING - RPG I 


When forms skipping is specified in columns 19-22 of the Output-Format Specifi- 
cations, the entry refers to channel numbers, not lines. If line - channel 
equations are specified on the line counter specifications form, then a 
reference to a channel in output for which a corresponding line —- channel 
equation exists results in the generation of a channel skip. The equations are 
necessary so the program can determine where the paper is positioned in relation 
to the overflow line. 


CHANNEL SKIPPING -—- RPG I AND RPG II 


When line - channel equations are specified but are not referenced on the 
Output-Format Specifications, no syntax error or warning message results. 


It is the responsibility of the user to insure that the proper carriage control 
tape is installed on the line printer. 


PRINTER BACKUP 


If a line printer is not available during RPG program execution, the output 
data is sent to a printer backup file and is subsequently printed exactly as 
intended providing that the proper carriage control tape is installed on the 
line printer. 


Line Counter Specifications are required when generating programs with RPG I. 
A summary of the required and optional entries follows: 


a. 


Columns 15-19 can optionally contain the form length and columns 
18-19 can optionally contain "FL". If these entries are omitted, 
the default value of 66 is assumed for the form length. 


If the form length is specified in columns 15-19, then columns 20-74 
can be used for line - channel equations that can specify a maximum 
of 11 channels. 

If a form length is not specified in columns 15-19, the default value 
of 66 is assumed and columns 15-74 can be used to specify up to 

12 channels. 


The user must specify channel 1 and channel 12. Channel 12 defines 
the overflow line. 


The user must provide line - channel specifications for any channel 
used in the Output-Format Specifications. 


"OL" is not specified. 


A skip to channel 12 is permitted. 


SECTION / 


TELECOMMUNICATIONS CARD SPECIFICATIONS 


The function of the Telecommunications Card is to further define a data com- 
munications file specified on the File Description Specifications as a REMOTE, 
DATACOM, or BSCA file. A Telecommunications Card is required for each data 
communications file specified on the File Description Specifications. 


There is no special form used for coding Telecommunications specifications. 
The Control Card Specification form is used for illustrating Telecommunications 
coding positions and entries in this manual. 


Standard coding procedures are used for the Input and Output Specifications 
when data communications files are declared. On output, exception records are 
written only to the REMOTE file whose filename is specified in the FACTOR 2 
field with the SEND operation code that is being executed. 


DATA COMMUNICATIONS FILES 


Data communications files are required when the RPG program is to communicate 
with a remote device, and they are used to transmit and/or receive information 
contained in corresponding NDL files of the network controller. The filename 
of the NDL file must be entered in columns 7-14 of the Telecommunications Card. 
The data communications files used with B 1800/B 1700 RPG are of the following 
two types: 


as REMOTE 
Ds DATACOM and BSCA 


The following two subsections titled REMOTE and DATACOM AND BSCA contain the 
detailed information required to define data communications files. The Tele- 
communications Card entries and the coding positions in which the entries must 
be made are explained for both types of data communications files. 


REMOTE FILES 


One Telecommunications Card is required for each REMOTE file declared in a 
program. Multiple stations can be assigned to a REMOTE file, and the remote 
devices are accessed on a demand basis. 


A description of the required fields to be coded for a Telecommunications Card 
follows. Following the field definitions is figure 7-1, which illustrates the 
use of the Control Card Specifications form for coding Telecommunications 
entries for REMOTE files. 


aprepememarass 


Field Definitions - REMOTE Files 


1-2 PAGE 


Refer to Section 2 for a complete description of this field. 


3-5 LINE 


Refer to Section 2 for a complete description of this field. 


4 6 FORM TYPE 


pistrt gts trtiseSeietargiecgt et 
= 
z 


23.2 498 FEBITE SEE STAES. 


This field must contain a T. 


7-14 FILENAME 


This field must contain the name of the REMOTE file specified on the 
File Description Specifications. 


15 = 
Column 15 must be blank. 


16-18 NUMBER OF STATIONS 


A numeric entry must be made in this field to specify the maximum 
number of terminals that can be assigned to the data communications 
file. Valid entries are 001-999. 


19-21 MAXIMUM MESSAGES 


A numeric entry must be made in this field to specify the maximum number 
of input messages per station that can be queued. 


Example: 


If MAXIMUM MESSAGES is set to 2 and a terminal attempts to transmit 


three messages before the program reads a message, the following events 
occur: 


a. The terminal remains in transmit mode following the attempted 
transmission of the third message since the input queue is full. 


b. When the program performs a read operation, a message is read from 
the input queue, thereby making space available in the input queue 
for the third message. 


Cc. The third message is then transmitted from the terminal buffer to 
the input queue, and the terminal returns to local mode. 


22-27 STATION NUMBER 


Prior to the execution of a SEND operation code, a valid relative station 
number must be entered in this 3-byte field. After a RECV operation code 
is executed, the MCP indicates to the program which station was read, and 
the station number is automatically placed in this field. 


28-33 MESSAGE LENGTH 


Prior to the execution of a SEND operation code, a message length equal 
to or less than the declared record size must be entered in the 4-byte 
message length field. After a RECV operation code is executed, the 

MCP indicates to the program the length of the message read, which is 
then placed in this field. 


34-80 -—- 
This field must remain blank. 


Figure 7-1 illustrates the use of the Control Card Specifications form for 
coding Telecommunications entries for REMOTE files. 


Burroughs B 1700 RPG 
PROGRAM 10 PAGE OF 
PROGRAMMER DATE 
1 2 15 80 
race [ | | CONTROL CARD SPECIFICATIONS Tee eae Coens 


14_ 16 1819 2122 2728 3334 


A. 6 Must contain the letter T. 
B. 7-14 Must contain the name of a REMOTE file specified 
on the File Description Specifications. 
Om 15 Must remain blank. 
D. 16-18 A numeric entry is required to specify the maximum 


number of terminals that can be assigned to the REMOTE file. 


E. 19-21 A numeric entry is required to specify the maximum 
number of input messages per station that can be queued. 


F, 22-27 A field name which will contain the relative station 
number of the station to which a message is being sent must 
be entered in this field. 


G. 28-33 A field name which will contain a message length 
equal to or less than the declared record size must be 
entered in the message length field. 


H. 34-80 Must remain blank. 
Figure 7-1. Telecommunications Entries - REMOTE Files 


DATACOM OR BSCA FILES 


One Telecommunications Card is required for each DATACOM or BSCA file declared 
in a program. Only one station (terminal) can be assigned to a DATACOM or 
BSCA file. 


A description of the fields of a Telecommunications Card for DATACOM or BSCA 
files follows. Entries must be made in columns 6, and 7-14. 


Figure 
coding 


7-2 illustrates the use of the Control Card Specifications form for 
Telecommunications entries for DATACOM or BSCA files. 


FIELD DEFINITIONS - DATACOM OR BSCA FILES 


1-2 PAGE 
Refer to Section 2 for a complete description. 
3-5 LINE 
Refer to Section 2 for a complete description. 
6 FORM TYPE 
This field must contain a T. 
7-14 FILENAME 
This field must contain the name of the DATACOM or BSCA file specified 
on the File Description Specifications. 
15 CONFIGURATION 
This field is unused. Any entry other than blank, P, M, or S will be 
given a syntax error. 
Burroughs B 1700 RPG 
ies PROGRAMMER bias DATE ai 
PAGE Th CONTROL CARD SPECIFICATIONS eeasl one SEaGcE 


G14033 


A. 6 Must contain the letter T. 


B. 7-14 Contains the name of a DATACOM or BSCA 
file entered on the File Description 
Specifications. 


Figure 7-2. Telecommunications Entries -— DATACOM or BSCA 


Figure 7-3 is an example of an RPG data communications program. The program 
uses the BITON and BITOF operation codes to build the special characters 
required in data communications programming. Refer to Section 9 for a com- 
plete description of the BITON and BITOF operation codes. 
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Figure 7-3. Example of an RPG Data Communications Program (Sheet 1 of 5) 
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Example of an RPG Data Communications Program (Sheet 2 of 5) 
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Example of an RPG Data Communications Program (Sheet 3 of 5) 
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Figure 7-3. Example of an RPG Data Communications Program (Sheet 4 of 5) 
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Figure 7-3. Example of an RPG Data Communications Program (Sheet 5 of 5) 


SECTION ‘ 


INPUT SPECIFICATIONS 


Input Specifications describe the records within each file and fields within 
each record to be used as input data for the program. The two types of input 
specifications are; 


a. Record type descriptions (columns 7-42) which define the various 
input records and their relationship to other records in the file. 
Columns 43-70 must be blank. : 


b. Field descriptions (columns 43-70) which define each field within the 
records. Columns 7-72 must be blank, 
we ( ae ae; 
Field description entries must start one line below the associated record type 
descriptions, or an error will occur. A warning is emitted if a record type 
description is not followed by a field description. Field and record de- 
scriptions must not be specified on the same line. 


FIELD DEFINITIONS 


Figure 8-1 can be used in conjunction with the following field definitions for 
the Input Specifications. 


i=2 PAGE 

Refer to Chapter 2 for a complete description. 
o-5 LINE 

Refer to Chapter 2 for a complete description. 
6 FORM TYPE 

This field must contain the letter I. 
7-14 FILENAME 


This field is used to identify the file to which the subsequent record 
type and field descriptions belong. The file specified must have been 
previously described on the File Description Specifications form as an 
input, update, or combined file. Every input, update, or combined file 
(except input table files and record address files), described in the 
File Description Specifications, must be described on the Input Specifi- 
cations form. The FILENAME entry must be the same as the one used in the 
File Description Specifications. It must appear on the first line con- 
taining information about the records in the file; if the entry is left 
blank, the last filename entered is assumed to be the file being des- 
cribed. The first record type description must not have a blank FILE- 
NAME entry: 
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Figure 8-1. Input Specifications Summary Sheet 


f 


14-16 


15-16 


Primary and secondary files are processed in the same order as they are 
described in the File Description Specifications. If primary or second- 
ary files are not described on Input Specifications in the same order 
as they are described on the File Description Specifications, a warning 
is emitted. The warning is emitted because the object program from some 
RPG compilers may process primary and secondary files according to the 
order in which they appear on the Input Specifications 


All record type and field descriptions for a particular file must be 
srouped together on the Input Specifications. Descriptions of records 
from different files must not be interspersed. 


AND/OR LINES 


There is no limit on the number of AND or OR lines that may be specified; 
however, it is recommended that the user not exceed 20 if compatibility 
with other Burroughs systems is desired. AND/OR lines must be preceded 
by a line containing at least one record identification code entry. 


AND Line 


If it is necessary to specify more than three record identifying codes 
to identify a record type, an AND line may be used. The word AND 
shquld be entered in columns 14-16 and the additional record identify- 
ing codes should be entered in columns 217-41. There must be at least 
one record identification code entry on each AND line. 


OR Line 


In some cases, a particular record type may be identified by two or 
more different codes. For this condition, the word OR entered in 
columns 14-15 indicates that only one of the codes specified need be 
present to identify the record type (see figure 8-2). Record identi- 
fication codes are not required on OR lines, although this is not 
necessarily a meaningful thing to do. Other uses of the OR relation- 
Ship are discussed later in this chapter (refer to figures 8-10 

and 8-18). 


SEQUENCE 


This field is used to specify a special sequence to different record 
types ina file. If this field contains an alphabetic entry (note that 
this includes a blank entry, although a warning will be emitted), it 
specifies that the record types need not be in any Special order. 


Within each file, all record types having alphabetic entries in the 
SEQUENCE field must be specified before those with numeric entries. 
Refer to figure 8-4 for an example of how to code the SEQUENCE field 
when both alphabetic and numeric entries are desired. All chained and 
demand files must have an alphabetic entry in this field. 
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A sequence group is data file records which are defined by a numeric 
entry specified in columns 15-16 of the Input Specification line. 


If this field contains a numeric entry, it indicates that sequence 
checking is to be done. The order of precedence is the sequence in 
which the records are declared on the Input Specifications. This 

allows the programmer to specify that one record type must appear before 
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Figure 8-2. AND/OR Relationships - Record Identification Codes 


another record type within a sequenced group. The program will auto- 
matically check the designated order as the records are read. 


The first sequenced record type specified must have the lowest sequence 
number (01), the next record type should be given a higher number, etc. 
Gaps in sequence numbers are allowed, but the numbers used must be 

used in ascending order. 


If a record is encountered that is out of sequence, the program will 
halt. The system operator can order the program to resume, at which 
time it will ignore the record that is out of sequence and read the 

next record from the file. ' 


Records in an AND or OR line cannot have a sequence field entry; the 
entry from the previous line also applies to the line with the AND or 


OR entry. 


In the example shown in figure 8-3, the input file PRCARD contains two 
record types which are to be sequence checked. Each group of input 
records of the input file PRCARD must contain exactly one of the first 
record type which may be followed by any number of records of the 
second type. A record identifying indicator of L1 is assigned to the 
first record type, so that a control break will occur each time the 
first record of a new group is read. 
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Refer to figure 8-4 for an example of how to code the SEQUENCE field 
when both alphabetic and numeric entries are desired. 


GI4036 
Figure 8-3. Input Sequence Checking 
NUMBER 
This field is used only if sequence checking is to be done (i.e., the 


SEQUENCE field contains a numeric entry). 


An entry in this field in- 


dicates whether more than one record of the designated type may appear 
in each group of a sequenced input file (see figure 8-4). 


Records in an AND or OR line cannot have a NUMBER field entry; the 
entry from the previous line also applies to the line with the AND or 


OR entry. 


Valid entries for the NUMBER field are: 


Definition 


Record types are not being se- 
quence checked (SEQUENCE field 
contains alphabetic entry). 


Not more than one record of this 
type will be present in each 
sequence group. 


One or more records of this type will 
be present in each sequence group. 
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Figure 8-4. Example of Alphabetic and Numeric Entries in SEQUENCE Field 


18 OPTION 


This field is used only if sequence checking is to be done (i.e., the 
SEQUENCE field contains a numeric entry). An entry in this field in- 
dicates whether certain record types are optional. An alphanumeric 
"O" entry specifies that a record of this type may or may not be 
present in each group of a sequenced file. If this field is left 
blank, each group may contain one or any number of records of this 
type, depending on the entry in column 17 (see figure 8-4). 


Records in an AND or OR line cannot have an OPTION field entry; the 
entry from the previous line also applies to the line with the AND or 
OR entry. Valid entries are: 


Record type must be present in 
each group. 


Record type is optional, and 
may not be present in each group. 


If all record types ina file are designated as optional, no sequence 
errors will be detected. 


Example Coding of Sequence, Number, and Option Fields 


Figures 8-4A, B, and C illustrate coding of the sequence, number, and option 
fields on the Input Specifications. Following each figure is a description 
of the specified record sequence. In conjunction, tables 8-1, 8-2, and 8-3 
list possible sequences which records from SEQ], SEQ2, and SEQ3 can appear in 
for figures 8-4A, B, and C, respectively. The records from the SEQ], SEQ2, 
and SEQ3 files are read sequentially. 


The sequence the records from SEQ] (as specified in figure 8-4A) can appear 
in is as follows: 


a. A record with a 1 in column one must be read first. Subsequent 
records with a 1 in column one must follow records with a 2 or 3 
in column one. 


b. <A record with a 2 in column one must follow a record with a 1 in 
column one. 


c. A record with a 3 in column one must follow a record with either a 
1 or 2 in column one. 


Records with a 2 or 3 in column one are optional, but_at least one of these 
records must appear after each record with a 1 in cO6lumn one. 


Figure 8-4A is used in conjunction with table 8-l. 
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G12064 Figure 8-4A. Input Specifications for DISKIN (SEQ1) 


Table 8-1 lists one possible sequence in which records may appear from SEQ1l. 
Asterisks denote out of sequence records. This table is used with figure 8-4A. 


Table 8-l. SEQ1 Data File 
Relative 


Record Data in 
Number Column One 
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* 
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GO NO 
* 
* 
* 


Expects a record with a 2 
or 3 in column One. 


Expects a record with a l 
in column one. 


Expects a record with a l 
or 3 in column One. 


Figure 8-4B is used in conjunction with table 8-2. 


The sequence the records from SEQ2 (as specified in figure 8-4B) can appear 
in is as follows: 


ae A record with a 1 in column one must be read first. Subsequent 
records with a 1 in column one must follow records with either a 
1, 2, or 3 in column one. 


b. A record with a 2 in column one must follow a record with a l in 
column one. 


ome A record with a 3 in column one must follow a record with a 1 or 2 
in column one. 
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G12065 Figure 8-4B. Input Specifications for DISKIN (SEQ2) 


Table 8-2 lists one possible sequence in which records may appear from SEQ2. 
Asterisks denote out of sequence records. This table is used with figure -8-4B. 


Table 8-2. SEQ2 Data File 
Relative 


Record Data in 
Number Column One 


%* 
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Mee NOWOrRWONNE 
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Expects a record with a l or 3 
in column one. 


me Expects a record with a 1 in 
column one. 


Figure 8-4C is used in conjunction with table 8-3. 


The sequence the records from SEQ3 (as specified in figure 8-4C) can appear 
in is as follows: 


ae A record with a 1 in column one must be read first. Subsequent 
records with a 1 in column one must follow records with a1, 2, 
or 3 in column one. 


b. A record with a 2 in column one must follow a record with a 1 in 
column one. 


ce A record with a 3 in column one must follow a record with a l or 
2 in column one. 
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as Figure 8-4C. Input Specifications for DISKIN (SEQ3) 


Table 8-3 lists one possible sequence in which records may appear from SEQ3. 
Asterisks denote out of sequence records. This table is used with figure 8-4C. 


Table 8-3. SEQ3 Data File 


Relative 
Record Data in 
Number Column One 
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Expects a record with a 3 in 
column one. 


Expects a record with a l in 
column one. 


Expects a record with a 3 in 
column one. 


19-20 RECORD IDENTIFYING INDICATOR 
This field may be used for the following purposes: 
a. To assign an indicator to each record type. 
b. To indicate look-ahead fields. 
ec. To specify spread cards. 


Record identifying indicator. 


Control level indicator. 
Last record indicator. 


Halt indicator. 
Spread cards. 


Look-ahead field. 


If this entry is blank a warning will be emitted. The various in- 
dicators are defined in the following paragraphs. 


Record Identifying Indicator 01-99 


Each input file may contain different types of records requiring 
different operations. Record identifying indicators are used to 
Signal to the rest of the program cycle the type of record just read. 
When a specific record type is selected for processing, its corres~ 
ponding identifying indicator is turned ON. This indicator remains 

ON for the rest of the current program cycle and may be used to con- 
dition various calculation and output operations, as desired. All 
record identifying indicators are turned off at the same point in the 
program cycle. Each record identifying indicator should be unique 

and only one record identifying indicator may be ON for any one file 
at any one time. However, there may be more than one record identify- 
ing indicator ON at any one time, each one associated with a different 
file (i.e., through CHAIN or READ operations). 


Record identifying indicators do not have to be assigned in any order. 
If the same operations are to be performed on different record types, 
the same indicator may be assigned to more than one type. 


Record identifying indicators are not allowed in an AND line, but in- 
dicators may be specified for every record type that requires special 
processing in an OR relationship. 


Control Level Indicator L1-L9 


A control level indicator is used instead of a record identifying indi- 
cator when a record type, rather than a control field, signals the 

start of a new control group. This use of the control level indicator 
does not cause the lower control levels to turn ON. Refer to the CON- 
TROL LEVEL field for a complete description of control level indicators. 


Last Record Indicator LR 


The last record indicator is used instead of a record identifying in- 
dicator when a record type, rather than automatic End-of-File, signals 
the end of processing. Final total operations are conditioned by this 
indicator. 


Halt Indicator HO-H9 


A halt indicator is used instead of a record identifying indicator 
when the occurrence of a specific record type denotes a desired con- 
dition requiring a program halt. 

Look~Ahead Field *+* 


Look-ahead fields are specified by placing asterisks in columns 19 and 
20. All fields named in columns 53 through 58 on the specifications 
lines following the look-ahead specifications are look-ahead fields. 
Look-ahead fields can be used to: 


a. Determine when the last record in a particular control group 
is being processed. 


b. Extend the use of the matching record function. 


Rules for Look-Ahead Fields. 
The following rules must be observed regarding look-ahead fields: 


a. Look-ahead fields can be specified for input, update, or com- 
bined files that are primary or secondary files, regardless 
of whether or not they are processed by record address files. 


b. Look-ahead fields cannot be specified for combined files, de- 
mand files, or for files that specify spread card records. 


c. One set of look-ahead fields can be specified per file, and 
the field descriptions apply to all records,.in that file. 


d. Look-ahead fields can not be used as result fields in calcu- 
lation operations. 


e. The name given to a look-ahead field must not occur on any 
other Input or Extension Specification. 


f. If the look-ahead field occurs on an Output Specification, 
blank after must not be specified. 


g. When a program needs to access information before and after 
the record is selected for processing, the field must be des- 
cribed twice with different names (once as a look-ahead field 
and once in the normal way). Refer to figure 8-5. 


h. The ** line cannot follow a record type description that has 
a numeric sequence entry. 


i. Columns 17-18 and 21-74 must be left blank. 


j. Any combination of alphabetic characters or blanks can be 
entered in columns 15-16 except ND and Rb (% = blank). 


k. The fields themselves are described on the lines following the 
** Jine. When fields are described, columns 7-42 and 59-74 
must be blank. 


1. When the last record of a file is being processed, any look- 
ahead fields for that file contain all "9's" (signed numeric 
or alphanumeric according to field type). 


Figure 8-5 provides an example of how to code look-ahead fields. 

Use of the Look-Ahead Feature with Input Files. 

When the look-ahead feature is used with an input file, the look-ahead 
field allows the program to access information in a field of the next 
record that is available for processing. Thus, the program can use in- 
formation from the look-ahead field to condition certain operations 
prior to the time the record is normally available for processing. 

Use of the Look-Ahead Feature with Update and Combined Files. 

When the look-ahead feature is used with an update or combined file, 


the look-ahead field usually references the current record being pro- 
cessed. The look-ahead file references only the next record in the 


8-9 


1 2 INPUT SPECIFICATIONS 


PAGE ai 


FORM TYPE 


OPTION 
NUMBER RECORD IDENTIFYING INDICATOR 


SEQUENCE 


PACKED 
STACKER SELECT 


PRO 
IDEI 


MATCHING FIELOS OR CHAINING FIELD 
DECIMAL POSITIONS CONTROL LEVEL 


| ss RECORD IDENTIFICATION CODES IDENTIFICATION CODES sence aan 
ae ee ae ek eae ret tocarin 
mr cc FIELD NAME 
Bie fs (VARIABLE 
LINE : FILENAME nee POSITION FROM TO 
IN| = Nit 
Z{O10 O1O 
3 5 7 l 1? 20 28 3132 }33 134 40141 f42 [43 44 47148 5] 0 
oft - ECOL Po eReCRRE ARERR ERASERS 
oft REREe potcbape cept 
of 3| i SEH HH ae EL 
Boe E REGRERRRRR RES 34) MO ELLBL 
ols] ie FEE EEE HEHE EEE EEE Bete 
oe | E Reee ae HEHE Hee bet eee 
of | a Hee ep || lelol | 33 MxF LLG.|. 
ole| | it RRR CRERRAae +H lela | aol WXleltiList |_| 
fet | B TRRREREREARESEE SEE CeaEREEEeane 
fo] fr ie RASeaee Re aeeeae PEER EE EEE HEE 
ey & pape ponn ns Reans aeuberee Rl 
Pet ea LLL ETT EEL 
G14039 
Figure 8-5. Coding Look-Ahead Fields 
file when the current record was not read from the file. Therefore, 
when an update or combined file is the only file being read, the look- 
ahead field always references the current record. 
Processing Two Input Files Using the Look-Ahead Feature. 
Figure 8-6 shows processing of records from two input files, one of 


which is a primary file and the other a secondary file. 


All primary 


records are processed before any secondary records are available. 
Therefore, to use data from the secondary file while processing the 
primary file record it is necessary to use the look-ahead feature. 


Look~Ahead 
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Figure 8-6. Records Available for Look-Ahead: Two Input Files 


Processing an Update File and a Secondary File Using Look-Ahead. 


Figure 8-7 shows processing records from an update file and a 
secondary input file. 


Look~Ahead 
Record Processed Records Available 
U1 U1 Sl 
sl U2 Ss2 
$2 U2 S$S3 
$3 U2 S84 
U2 U2 S84 
54 U3 S95 
Sd U3 S6 
56 U3 S7 
U3 U3 S87 
U4 U4 S87 
S7 U5 S8 


UPDATE FILE SECONDARY INPUT FILE 
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Figure 8-7. Records Available for Look-Ahead: One Update File, One Input File 
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Spread Card Indicator TR 


Spread card records can only be used with primary or secondary input 
card files that do not have look-ahead fields. A spread card record 
consists of a header field and one or more associated trailer fields, 
thereby permitting the storage of more data on each card. For example, 
a file for an order filling program can contain an invoice number, 

part number, quantity, and price. 


Figure 8-8 illustrates the difference between a regular data deck and 

a data deck in spread card format. Note that six cards are required 
for invoice number 1 in regular format, but only one spread card is re- 
quired for the identical information. For each spread card, the header 
field contains INVOICE NUMBER and the trailer fields contain the set 
PART# QTY PRICE. 


Figure 8-9 shows the Input Specifications for the spread card data deck 
Shown in figure 8-8. 


PART # QTY PRICE 
PART # QTY PRICE 
PART# QTY PRICE 
INVOICE NUMBER 


PART # QTY PRICE 
PART # QTY PRICE 
PART # QTY PRICE 
PART # QTY PRICE 
INVOICE NUMBER 


PART # OTY PRICE 
PART # QTY PRICE 
PART # QTY PRICE 
PART # QTY PRICE 
PART # OTY PRICE 
INVOICE NUMBER 


REGULAR DATA DECK 
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Figure 8-8. 
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DATA DECK IN SPREAD CARD FORMAT 


Comparison of Regular and Spread Card Data Decks 
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Figure 8-9. Coding for Spread Cards 
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Rules for Spread Cards. 
The following rules must be observed regarding spread cards. 


a. Spread cards can be specified for primary or secondary input 
card files only. 


b. Look-ahead fields are not allowed. 


ec. If sequencing is specified in columns 15-16, then an "N" must 
be entered in column 17. 


d. The header field specification is optional, but when specified 
is coded as follows: 


1. Describe the header fields on separate specifications 
lines immediately following the file and record type 
entries. 


2. Describe only the header fields that are used within the 
program. 


e. Enter "TR' in columns 19-20 to specify that the trailer fields 
are described on the specification lines that follow. All 
other entries on the "TR" line must be left blank. 


f. It is necessary to describe only the trailer fields that are 
to be used in the program. However, the fields that specify 
the beginning and ending position of each trailer portion must 
be described. 

g. All trailer fields must be of the same length and contain the 
same fields. Therefore, it is necessary to describe only the 
first trailer portion. 


h. Trailer field entries are made in columns 44-58, and all other 
columns are left blank. 


Processing Spread Cards. 
Spread cards are processed as follows: 

a. The header portion of the spread card record and one trailer 
portion are processed each program cycle and are treated as 
one logical record. 

b. The process described in step a continues until: 


1. All trailer portions of a record have been processed, or 


2. A trailer portion of a record is encountered whose fields 
are all blank. 


When either of the described conditions occurs, the next spread 
card is read and processing continues. 


21-41 


RECORD IDENTIFICATION CODES 


When more than one record type is used within a file, only one record 
type will be selected for processing during each program cycle. The 
record identifying indicator for that record type will be turned ON 
when it is selected and will remain ON for the rest of the current 
program cycle. 


In order to identify the various record types to the program for the 
purpose of record selection, each record type must have a unique code 
assigned to it. This code consists of a certain character or combina~ 
tion of characters occurring in certain positions of the record. 

The record identification codes are checked according to the sequence 
in which they were specified, and that checking is terminated when a 
condition is encountered that causes a record identifying indicator to 
turn ON. For that reason, a record within a file that does not con- 
tain record identification codes should be specified last. 


The RECORD IDENTIFICATION CODES field is used to describe the code for 
each record type. If all records are to be processed alike regardless 
of their type, or if all records are of the same type, this field 
should be left blank. 


This field is subdivided into three subfields of seven columns each, 
allowing up to three code characters to be described on one line, 
The three subfields are taken to be in an AND relationship, and any 
that are not needed to specify code characters should be left blank. 
Each of the three subfields is divided into four entries, and coding 
is the same for all three subfields. The subfields are discussed in 
the following paragraphs. 


21-24 ,28-31,35-38 POSITION 


These fields are used to give the locations in 

the record of each character in the record identi- 
fication code. Entries must be numeric, between 
one and the record length specified, inclusive, 
and right-justified (leading zeros are optional). 


25,32,39 NOT 
These fields are used to indicate whether the 


specified character must be present in the record 
at the designated position. Valid codes are: 


Blank 


Character must be present in 
the location specified by the 
POSITION entry. 


Character must not be present 
in the location specified by 
the POSITION entry. 


= 


26,33,40 


C/Z/D 


These fields are used to indicate which portion of 
the character specified in columns 27, 34, and 41 
Should be used for comparison: the zone, the 
digit, or the entire character. Valid entries are: 


Definition 
Entire character. 


Zone portion, 


Numeric (digit) portion. 


Every alphabetic character, numeric character, or 
special character is represented by a different 
combination of punches in the 80-column or 96-7 
column cards. Each character punched on the card 
is composed of two parts, a zone portion anda 
digit portion. Even after a character has been 
read into the machine, it is still composed of 
these two parts (see appendixes A and B). 


A character is represented in the computer by 
eight bits. The first four bits comprise the zone 
portion and the last four bits comprise the digit 
portion. The configuration of these bits is set 
in the binary equivalent of their hexadecimal 
value. In appendix B, the hexadecimal value of 
the character A is given as Cl. Therefore, the 
corresponding bit configuration for A would be: 

1 tl 0 0 0 0 O J 


Since the character is represented by 12 punch 
positions on an 807~column card and six punch po7 
Sitions on a 96~column card, translation must 

take place so that it can be represented by eight 
bits in storage. This is an automatic function. 
As a result of it, however, the way characters 

are represented in the machine and the way they 
appear on the punched card are not always identical. 
Not all characters that have the same zone punched 
in the card have identical zone structures in the 
machine. For example, character $ has the same 
zone punch in the card as character K. However, 
they do not have the same zone representation in 
the machine. 


Whenever just the zone or just the digit portions 
of characters are used in specific functions, such 
as sequencing, testing, or identifying records, 
the exact structure of the characters in the ma- 
chine must be known. For example, when identify-~ 
ing a record type on the basis of the zone portion 
of the character D, notice that several characters 
have the same zone structure as the letter D. If 
a card with the record identifying code of E is 
read, it is still considered to be a D type record 
because the zone of character E is the same as the 
zone of character D. 


8-17 


The zone of the plus (+) character is treated 
like the zone of the characters A through I, and 
the zone of the minus (—~) character is treated 
like the zone of the characters J through R, 
irrespective of the internal codes actually used 
for plus and minus. 


In figure 8-10, only the records of customers whose 
last names begin with the letters A through I will 
be processed since the zone portion of A is the 
same as for the characters B through I. The first 
letter of each last name begins in column 10. 
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Figure 8-10. C/Z/D Coding Example 1 


In figure 8-11, 5-digit employee numbers are 
checked to see that all 5 digits are numeric. 
The zone for all numeric characters is the same. 
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Figure 8-11. C/Z/D Coding Example 2 


In figure 8-12, only persons whose names start 
with C, L, or T will be processed, since the digit 


portion of the characters L and T is the same as C. 
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Figure 8-12. C/Z/D Coding Example 3 
NOTE 


If packed decimal format is specified, 
the zone portion and the digit portion 
of each byte contains a numeric char- 

acter. Therefore, the user must Know 

where the numeric character he is ref- 
erencing is located, i.e., either the 

zone portion or the digit portion. 


27,34,41 CHARACTER 


Any valid EBCDIC character may be used to identify 
the input record type. These fields are used to 
specify the character to be used for comparison as 
part of the identification code, 


If none of the RECORD IDENTIFICATION codes are 
found on a record, the program will halt. The 
system operator may request resumption of the 
program, at which time it will ignore the record 
in error and read the next record from the same 
file (see appendix E). 


Additional Record Identification Codes 


If necessary, more than three record identification codes can be speci- 
fied by entering "AND" in columns 14-16 of the next line. Columns 21-41 
Should then be coded as previously described. 


It is also possible to specify an "or" relationship between records by 
entering "OR' in columns 14-15 of the next line. Columns 21-40 should 
then be coded as previously described. The capability of ede Cry TOE. 
more than three record identification codes can be used when: 


a. Multiple record types have the same fields but the fields are 
in different positions. 


42 


43 


b. Multiple record types have the same field descriptions. 
c. A field occurs in one type of record but not in another. 
d. Various combinations of a, b, andc. 

STACKER SELECT 


This field is used to indicate the stacker into which the input card 

is to be placed after being read. Only card input or combined files 
may be stacker selected. Input files may be stacker selected only in 
the Input Specifications; combined files may be stacker selected either 
in the Input or Output-Format Specifications. If a combined file is 
stacker selected in both the Input and Output~Format Specifications, 
the Output~Format Stacker Specification overrides the stacker specified 
in the Input Specifications. Valid entries for this field are: 


Entry | Definition 
Blank | Cards automatically go to 
| i; default stacker. 


Numeric Entry| Cards go into the stacker 


(1-6) specified. | 


Card types identified by OR lines may be stacker selected for a special 
stacker by an entry in this field; however, if the STACKER SELECT field 
entry is left blank, the card type selected by the OR line will go to 


the default stacker. AND lines may not have an entry in STACKER SELECT. 


At execution time, any record types specifying a stacker number higher 
than that available on the device being used will go to the default 
stacker. 


This entry should be left blank for input files with multiple I/0 
areas, otherwise a warning is emitted that the results may not be 
those the user intended. 


PACKED OR BINARY FIELD 


This field is used to specify that a numeric field is in packed decimal 
format or binary format. Valid entries are: 


Blank Field is in unpacked decimal 
format or is alphanumeric. 


Field is in packed decimal 
format. 


Field is in binary format. 


When the input field named in columns 53-58 is in packed decimal for- 
mat, column 43 must contain a "PP". When the input field is in binary 
format, column 43 must contain a "'B". 


Whether in packed decimal, or unpacked decimal format, the data may be 
Signed at the most significant or least significant position as speci- 
fied by means of column 17 of the Control Card or by use of the dollar 
option RSIGN. The object program automatically converts all numeric 
data internally during execution with the sign at the most significant 
position. 


UNPACKED DECIMAL FORMAT 
Unpacked decimal format means that each byte of storage contains one 


character. Each byte is divided into a 4-bit zone portion and a 


4-bit digit portion. The format for unpacked decimal (left signed) 
is shown in figure 8-13. 


Positive OOO1 1001 0111 0110 
sign 
zone digit zone digit zone digit zone digit 
G12042 


Figure 8-13. Unpacked Format for Decimal Number 1976 (Left Signed) 


The format for unpacked decimal (right signed) is shown in figure 
8-14: 


1 9 7 6 
Ooo1 1001 0111 Positive 
zone digit zone digit zone digit 
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Figure 8-14. Unpacked Format for Decimal Number 1976 (Right Signed) 


When processing numeric data in the unpacked format, the zone portion 
is included for each digit in the number, but only the zone in the 
rightmost (right signed) or leftmost (left signed) digit serves as the 
sign (determines if the number is positive or negative). 


PACKED DECIMAL FORMAT 


Packed decimal format means that each byte of storage can contain two 
decimal numbers. The sign is included for the number, but the zone 
portion is omitted for each digit in the number. Each byte consists 
of two 4-bit digit positions. Within each number, either the left- 
most or rightmost byte contains a digit and the sign, depending on 
whether left or right signs are desired. 


When describing external data in RPG, the smallest element is a byte 
or character. Packed data is always character-aligned on external 
storage media such as magnetic tape or disk. 


Unpacked decimal format means that each byte of storage contains one 
character. Each byte is divided into a 4-bit zone portion and a 
4-bit digit portion: 


oman aa 
zone digit zone digit zone digit | zone digit 
zone | a ete ene Sa Pees: 


Each digit portion holds one digit of the number. On conversion to 
packed decimal format, the Zone portions are dropped, except for the 
Sign position. 


Packed data input always causes the field that is to contain the data 
to be of an odd size, since even-numbered digits are padded with a 
zero. All digits except the sign digit are considered data. 


The following example illustrates the format for packed decimal data: 


left signed output 


right signed output 


S = sign 
= digit zero - (even number digits are zero padded) 
dee +d, = digits of the field. 


Table 8-4 shows the corresponding packed field length in bytes for 
unpacked fields of one byte through 15 bytes in length. 


BINARY FORMAT 
Binary format means that two bytes of storage can contain up to four 


decimal numbers, and that nine decimal numbers can be contained in 
four bytes of storage. 


Rules for Binary Format 
The following rules must be observed when binary format is used: 


a. Each binary field must be either two bytes or four bytes in 
length. 


es 


Table 8-4. Packed Equivalents for Unpacked Fields 


Unpacked Field 
Length In Bytes 


Packed Field 
Length In Bytes 


b. Binary fields cannot be used as control fields or matching 
fields. 


c. Each two-byte field consists of a 1-bit sign followed by a 
15-bit numeric value. The numeric value must be within the 
range -9,999 and +9,999 incluSive. 


d. Each four-byte field consists of a 1-bit sign and a 31-bit 
numeric value. The numeric value must be within the range 
-999,999,999 and +999,999,999 incluSive. 


e. When a two-byte or four-byte binary field is assigned a value 
greater than it can store, the result is truncation of the 
leftmost (high order) digits of the decimal number. 


f. For binary fields, the leftmost bit is the sign bit and is 
used to indicate whether the number is positive or negative. 
If the sign bit is a O (OFF) the number is positive. If the 
sign bit is a 1 (ON) the number is negative. Figure 8-15 
shows the format of a two-byte binary field. 


-—__— 1 nits —___________. 


Number 


—_____—— 2 Bytes ae 


G12044 
Figure 8-15. Format of Two-Byte Binary Field 


ge. The decimal value of a binary field can be determined by add- 
ing the decimal equivalents of the binary bits that are ON. 
The sign bit is not included in the addition. Figure 8-16 
shows how the decimal equivalents of binary bits are obtained. 


Sign 16384 8192 4096 2048 1024 512 256 128 64 32 16 8 421 Decimal 
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Figure 8-16. Binary Representation of the Decimal Number 1976 


FIELD LOCATION 


This field is used to describe the location of data fields within a 
record, and is divided into two subfields that specify the beginning 
(FROM) and ending (TO) positions of the data field. A field of only 
one character will have the same position number entered in both sub- 
fields. Both entries must lie between 1 and the RECORD LENGTH. The 
TO entry must be greater than or equal to the FROM entry. Entries in 
the FROM and TO subfields must be right-justified; leading zeros are 
optional (figure 8-17). 


The length of a packed decimal field in digits (P in column 43) is 


2n-1, where n is the number of bytes occupied by the data as specified 
by FROM and TO. 


If the FIELD NAME entry (columns 53-58) specifies an array name with- 
out an index, it is not necessary that the FROM and TO entries provide 


o2 


FIELD LOCATION | 


TO 


FIELD NAME 
(VARIABLE 


G14043 


Figure 8-17. FIELD LOCATION Coding Example 


sufficient space for the whole array, as long as it is big enough for 
an integral number of array elements. The array will be read in from 
element 1 up to as many elements as will fit into the locations speci- 
fied. The decimal positions must contain the same entry as specified | 
on the Extension Specifications for that array. 


DECIMAL POSITIONS 
This field is used to specify the number of positions to the right of 
the implied decimal point in a numeric field. This entry may not be 


blank for a numeric field; if the data field contains only integral 
values, a QO should be entered to indicate no decimal positions. Valid 


entries are: 


Alphanumeric field. 


Number of decimal positions 
in a numeric field. 


Any field to be used for arithmetic operations, or to be edited, must 
be numeric. The number of decimal positions specified cannot exceed 
the length of the field (as specified in the FIELD LOCATION field). 


If the FIELD NAME entry (columns 53-58) on the Input Specifications 
specifies an array name, then the decimal positions field must contain 
the same entry as specified in the decimal positions field of the Exten- 
sion Specification for that array. 


8-25 


03-58 


FIELD NAME (VARIABLE NAME) 


This field is used to assign an identifier (name) to an input data 
field. All fields that will be referenced by the program must be 
named. Names must be assigned in accordance with the rules for form- 
ing field names as described in Chapter 2. A previously defined 
vector name may be used, which allows loading of the vector during 
input. Refer to Section 5 for a complete discussion of this method 
of vector loading. A separate line must be used for each field de- 
scription. 


All fields within one record type should have unique names; if two or 
more fields within the same record have identical names, only the last 
one defined is used. Fields from different record types may have the 
same name, but all names not uniquely defined must have the same 
length and data type (decimal position entry). These fields do not 
have to occur in the same location in each record. 


OR Relationship 


To eliminate duplicate coding of identical fields within different 
record types, the OR relationship may be used. The OR relationship, 
illustrated in figure 8-18, shows two record types which have identi- 
cal fields in the same record positions. Refer to columns 14-16 in 
this section. 


Special Words 


The following special words are reserved for use as variable names in 
columns 53-58 of the Input Specifications: 


PAGE 
PAGEn (where n=178) 


If page numbering is desired on output, the special word ''PAGE" or 
"PAGEn" for two more printer files is used to indicate that page 
numbering is to be done. Page field coding is illustrated in figure 
8-19. 


This feature allows a page number to be entered through a field in an 
input record, the field called "PAGE". The page number printed will 
be one greater than the page number contained in the "PAGE" field of 
the input record. A page field is incremented by 1 each time before 
it is printed. The field may be defined as any length, but it must 
contain zero decimal positions. Unless otherwise specified, it is 
assumed to be four digits in length with zero decimal positions (see 
figure 8-19). The "PAGE" field may be used in calculations like any 
other field. 


The same "PAGE" entry may be used for two different output files, but 
this is not recommended. 


Figure 8-19 is an example of PAGE field coding on Input Specifications. 
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Figure 8-18. OR Relationship ~- Identical Fields 
Within Different Record Types 
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59-60 CONTROL LEVEL 


This field is used to assign control level indicators to primary or 
secondary files. Any field other than a whole array or a look-ahead 
field may be assigned a control level indicator, in which case it is 
known as a Control Field. Control fields are checked each program 
cycle for a change in information; when data in the field changes, a 
control break occurs. A group of records with the same information 
in the control field is known as a Control Group. Valid entries for 
this field are: 


Definition 


Control level field assigned. 


No control *level field as- 
Signed. 


A control break occurs when a record containing a control field is 
read and the information in that control field is different from the 
information in the same control field of the previous record. When a 
control break occurs, the designated control level indicator turns 
ON, along with all control level indicators lower than it. For 


example, if control level indicator L5 is turned ON, L4, L3, L2, and 
Ll are also automatically turned ON. Control level indicator LO is 
always ON and cannot be assigned to a control field. However, LO can 
be used to condition total calculations or total output. 


A control level indicator may be turned on or off by SETON or SETOF, 
or may be used as a record identifying indicator. However, in such 
cases, control level indicators lower than the one specified are not 
turned on or off automatically. 


Control level indicators are used to condition operations, such as: 


a. Calculations that must be performed when a control group 
changes (totals, etc.). 


b. Operations that must be performed on the first card of a 
new control group. 


c. Summary punching or total printing that must be performed 
for each control group. 


Control level indicators can be used in input, calculation, and output 
specifications. The following rules must be observed when assigning 
control level indicators: 


a. The same control level indicator may be used in different 
record types or files; however, the control fields associated 
with that indicator must be of the same length. (See 
figure 8-20). 


b. Field names have no effect upon the control level indicator 
assigned; therefore, control fields in different record types 
may have both the same name and the same indicator assigned. 


c. The maximum size of a control field is 255 characters. 
d. Within one record type, control fields may overlap. 


e., Numeric control fields are treated as though they had no 
decimal positions. 


f. For numeric control fields, only the digit portion of each 
character is compared; thus, negative numbers are treated 
the same as positive numbers. 


g, All control fields with the same control level indicator are 
considered numeric if any one of those fields is described 
as numeric. 


h. Control levels need not be written in any special sequence, 
and gaps are permitted in the control levels assigned. 


i. Control fields are initialized to binary zeros. 
j. Total calculations and total output operations are bypassed 
until the first cycle following a cycle in which a record 


specifying control field is selected. This prevents a con- 
trol break from occurring the first time a record with control 
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Figure 8-20. Control Fields in Two Record Types 


fields is read (the input control fields would usually not be 
equal to the value contained in the initialized control fields). 


k. Different record types in a file need not have the same number 
of control fields. However, the user must ensure that unwanted 
control breaks do not occur. 


1. Control level indicators cannot be assigned to a binary field. 


Split Control Fields 


If the same control level indicator is assigned to more than one field 
within the same record type, the control field created is known as a 
Split Control Field. All fields so designated (those having the same 
control level within the same record type) are combined by the program 
in the order specified in the Input Specifications and are treated as 
one control field. Split control fields are illustrated in figure 8-21. 


The following special rules must be observed for split control fields: 
a. The same control level indicator may be used for split control 


fields in different record types if the field names used are 
different. The length of various portions of a split control 
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Figure 8-21. Split Control Fields 


field in one record type may be different than the correspond- 
ing portions in another record type; in fact, a control field 
may be split in one record type but not in another. However, 
the total length of the control fields (whether split or not) 
must be the same in both record types. For further informa- 
tion see FIELD RECORD RELATION (column 63-64). 


b. If one portion of a split control field is numeric, the entire 
field is considered numeric. 


c. Any one portion of a numeric split control field can not exceed 
the maximum size allowed for a numeric field, which is 15 
characters. However, the total length of all fields assigned 
to one control level indicator (within each record type) can 
be as large as 255 characters. 

d. A mixture of packed and unpacked control fields is allowed. 


For example, consider that three different record types can 
have: 


1. A control level specified with a field size of seven bytes. 
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2. Split control fields of three and four bytes. 


3. A split control field consisting of two bytes containing 
three packed digits, one byte, and three bytes containing 
three unpacked digits. 


e. No other specification lines may come between lines describing 
split control fields. 


61-62 MATCHING FIELDS 


This field is used to designate matching fields for multifile proces- 
Sing and sequence checking. Valid entries are: 


Blank No matching fields and no 
sequence checking specified. 


M1-M9 


Matching fields and sequence 
checking when two or more 
input, update, or combined 
files specify the same match 
fields. 


sequence checking when only 
one input, update, or com- 
bined file specifies match- 
ing fields. 


Matching Fields 


Designation of matching fields allows comparison of records from 
a primary file with records of one or more secondary files to de- 
termine if the records match. A maximum of nine different fields 
can be specified by field designators M1-M9, which are used to 
specify which fields in each record are to be matched. 


The matching record indicator, MR, is turned ON when the contents 
of the primary file match field is the same as the contents of 
the match field of any secondary file. The matching record indi- 
cator is set ON or OFF before detail calculations during the RPG 
program cycle. 


M1-M9 are not indicators, but cause MR to be set ON when the 
specified records match. MR is used to condition those operations 
that are to be executed when the records match. 


Rules for Matching Fields 


The following rules must be observed when assigning matching field 
values: 


a. All Match Fields must be in the same sequence during input, 
because sequence checking is automatically done on all fields 
designated as matching fields. A sequence error in any field 
will cause a program halt. When the system operator resumes 
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program operation, the record in error is ignored and the next 
record from the same file is read. 


If matching is used, it is not necessary for all primary and 
secondary files to have Match Fields. Neither must all 
record types within a file have Match Fields. But at least 
one record type from two files must have Match Fields speci- 
fied if the files are ever to be matched. 


All fields given the same matching field value (M1-M9) must 
be of the same length. 


Overlapping of different Match Fields within one record type 
is allowed; however, the length of any individual Match Field 
must not exceed 255 characters. 


All records to be matched must contain the same Match Fields 
(M1-M9); otherwise, a match may not be obtained. 


When more than one Match Field is designated for a record 
type, all fields specified are combined in order by descend- 
ing sequence of matching field values and are treated as one 
contiguous Match Field. The high order field is M9. 


Split Match Fields are not allowed; thus, the same matching 
field value should not be used more than once in one record 
type, unless field record relation indicators are used. 


Numeric Match Fields are treated as though they had no 
decimal positions. 


For numeric Match Fields, only the digit portion of each char- 
acter is compared; thus, negative numbers are treated the same 
as positive numbers. 


All Match Fields with the same matching field value are con- 
sidered numeric, if any one of the fields is numeric. 


In order for the matching record indicator to be turned ON, 
the absolute values of the data in the match fields in the 
secondary file must equal the absolute values of the data of 
the match fields in the primary file. Therefore, when more 
than one matching field value is used for matching records, 
the contents of all match fields must match before MR can be 
turned ON. 


Field names have no effect upon the matching field values 
assigned; therefore, Match Fields in different record types 
may have both the same name and the same matching field value 
assigned. 


Whole arrays must not be designated as match fields. 


Records in primary and secondary files without match fields 
are processed before records with match fields specified. 


Match fields for each match field value must have the same 
length. 


Multiple File Processing Using Matching Records 


At the beginning of RPG program execution, one record is read into 
the input buffer of each primary and secondary file. One of these 
records is selected for processing according to the rules following 
this paragraph. After the selected record is processed, the next 
record is automatically read from the same file. During the next 
program cycle, the current record is compared with the records re- 
maining from the previous cycle in order to select the next record. 


Rules for Multiple File Processing Using Matching Records 


The following rules apply to multiple file processing using matching 
records: 


a. If the next record from any primary or secondary file has no 
match fields, then that record is selected. 


b. If the records do not match and the records are in ascending 
sequence, then the record with the lowest match field value 
is selected. If records are in descending sequence, then the 
record with the highest match field value is selected. 


c. If more than one record satisfies either of the rules des- 
cribed in items a and b, the record from the highest priority 
file is selected. The primary file is of highest priority, 
followed by the secondary files in the order they are speci- 
fied on the File Description Specifications. 


d. When a record from the primary file matches a record from the 
secondary file, the primary file record is processed first. 


e. When more than one secondary file is declared, all matching 
records from a secondary file are processed before control is 
passed to the next secondary file. 


f. Matching records allow the program to enter data from the 
primary record into the matching secondary record, since the 
primary record is processed first. Transfer of data from 
secondary records into matching primary records may be done 
through the use of look-ahead fields. 


gg, The MR indicator is ON during the processing of any record 
containing a match field, providing the current match field 
value originally occurred in a primary record. Otherwise, 
MR is in the OFF state. 


h. MR, the matching record indicator, is turned OFF for one pro- 
gram cycle when a record selected by the FORCE operation is 
processed. If the next record not selected by the FORCE oper- 
ation matches the last record with match fields specified, the 
MR indicator is turned ON. 


i. If the primary file has an E in column 17 of the File Descrip- 
tion Specification but the secondary files do not, any second- 
ary file records that match the last primary record plus any 
interspersed secondary file records without match fields are 
processed before the LR indicator is turned ON. 


When the coding shown in figure 8-15 is compiled and executed, the 
two matching fields are combined in the ascending order of the match- 
ing field values, Ml and M2. Notice that an End-of-File is specified 
for the secondary file. This causes the job to end after the last 
record in the file, TIMECDS, is read. 


Processing of matching fields proceeds as follows: 


a. When a record from the primary file matches a record from the 
secondary file, the primary file record is processed first. 


b. When records do not match, the record with the lowest (as- 
cending files) or highest (descending files) Match Field value 
is processed first. 


c. <A record type which has no matching field specification is 
processed immediately after the record it follows, and the 
MR indicator is not turned ON. If such a record is the first 
one in a file, it is processed first (even if it is not in 
the primary file). 


d. Matching records allow the program to enter data from the 
primary record into the matching secondary record, since the 
primary record is processed first. Transfer of data from 
secondary records into matching primary records may be done 
through the use of look-ahead fields. 


e. When additional secondary files are declared, all matching 
records are processed in one secondary file before passing 
control to the next secondary file. The precedence of the 
secondary files is determined by their order of appearance 
on the Input Specifications. 


In figure 8-22 the two matching fields will be combined in the ascend- 
ing order of the matching field values, M1 and M2. Notice that an 
End-of-File has been specified for the secondary file. This will 
cause the job to end after the last record in the file, TIMECDS, has 
been read. 


The example shown in figure 8-23 is used to illustrate the order in 
which two matching fields will be processed. An End-of-File has been 
specified for the primary file. 


The files (figure 8-23) will be processed in the following order: 


Sl Records with no matching fields are processed before 
records with matching fields regardless of file type. 

el The MR indicator is ON. All matching secondary records 

$3 are processed after the primary record. 

Pp2 

P3 dad tare 

31} The MR indicator is ON. 

P4 
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Figure 8-22. Coding Matching Fields 


se 


PRIMARY FILE SECONDARY FILE 
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Figure 8-23. Record Selection From Two Matching Files 


When no records match, the record with the lowest se~ 


So quence number is processed, regardless of file type. 

PS oie : 

S6 The MR indicator is ON. 

P6 

S7 The MR indicator is ON. 

58 

P7 Last record processed. 

59 When an End-of-File condition is specified for a primary 


file, secondary records are not processed unless the MR 


indicator is turned ON, 


The example shown in figure 8-24 illustrates the order in which re- 
cords with three matching fields are processed. 


(2S2) 
(2S1) 


PRIMARY FILE 1ST SECONDARY FILE 2ND SECONDARY FILE 
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Figure 8-24. Record Selection From Three Matching Files 
The files (figure 8-24) will be processed in the following order: 


Pl 


P2 

1S1 
251 
252 


182 When records do not match, the lowest matching field is 
processed next. 


The MR indicator is ON since all Match Fields match, 


P3 
1S3 
P4 
PS 
283 
P6 
254 
P7 
P8 
184 
185 
1S6 
P9 
1S7 
255 The MR indicator is ON. 2S7 is the last record processed. 


256 
257 
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Sequence ‘Checking 


Sequence checking of records within a file is performed when even 

matching field designators (M1-M9) are assigned. The sequence check- 
ing is performed in conjunction with matching records if two or more 
input, update, or combined files have match field designators specified. 


If only one input, update, or combined file has an entry in columns 
61-62, then sequence checking only is performed on the data in the 
fields to which M1-M9 have been assigned. A maximum of nine fields 
(M1-M9) within the record can be selected for sequence checking. 

When a record is encountered which has a field or fields out of 
sequence, the program halts. The system operator can cause program 
operation to be resumed, in which case the record in error is ignored 
and the next record is read from the same file. 


The following rules must be observed when assigning matching field 
designators for sequence checking: 


a. All fields designated for sequence checking must be in the 
Same order, either ascending or descending. 


b. When more than one field is designated for sequence checking, 
all fields specified are combined in order by ascending se- 
quence of matching field designators (M1-M9) and are treated 
as one contiguous field. 


c. Split sequence fields are not allowed; thus, the same matching 
field designation should not be used more than once in the 
record, unless field record relation indicators are used. 


d. Numeric fields are treated as though they had no decimal 
positions. 


e. For numeric fields, only the digit portion of each character 
is compared; thus, negative numbers are treated the same as 
positive numbers. 


f. All sequence fields are considered numeric if any one of the 
fields is numeric. 


The example shown in figure 8-25 illustrates coding procedures for 
sequence checking. 


FIELD RECORD RELATION 


The assignment of field record relation indicators in columns 63-64 
permits data to be made available for processing only if the condi- 
tions specified in the field record relation columns are satisfied. 
For example, if the indicator is ON, the data is made available just 
prior to detail calculations. If the indicator is OFF, the field re- 
mains in its previous condition. 
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Figure 8-25. Coding for Sequence Checking 


The following rules should be observed when assigning field record 
relation indicators. 


a. A field record relation indicator need not necessarily be the 
Same aS any record identifying indicator specified for the file. 


b. Fields within one record type which specify the same field record 
relation indicator may be entered in any order; however, the most 
efficient data storage is obtained when they are written as a 
group on specification lines following one another, 


c. All portions of a Split Control Field must be assigned the same 
field record relation indicator and must be written as a group on 
specification lines following one another. 


If field record relation indicators are not to be assigned, this field 
Should be left blank (see figure 8-26). The acceptable entries are as 
follows: 


=, 


Entry Definition 


Blank No field record relations. 


01-99 Record identifying indicator 
assigned to a record type. 


L1-L9 Control level indicator de- 
fined elsewhere, 


MR Matching record indicator. 

U1-U8 External indicator defined 
elsewhere, 

HO-H9 Halt indicator defined else- 


where. 


Each of the entries is discussed in the following paragraphs. 


01-99 


L1-L9, MR 


Record Identifying Indicators 


When several record types have been defined in an OR re- 
lationship, all fields defined apply to all record types. 
In many cases, however, not all of the record types de- 
fined have exactly the same fields. The FIELD RECORD 
RELATION field allows the programmer to specify that some 
fields apply only to certain record types and not to 
others. If the FIELD RECORD RELATION field is left blank, 
the associated field applies to all record types to which 
it is subordinate. However, by placing the same entry 
found in the Record Identifying Indicator field of one 
record type in the FIELD RECORD RELATION field, the field 
is identified as applying only to the corresponding record 


type. 


Control Fields and Match Fields may also be related toa 
particular record type in an OR relationship by a FIELD 
RECORD RELATION entry. 


When two or more Control Fields or two or more Match 
Fields have the same control level indicator or matching 
field value, respectively, only one of these may not have 
a field record relation indicator assigned. (This applies 
to a group of specifications, if it is a split control 
field specification.) Thus, specifications with field 
record relation indicators are used if that indicator is 
ON; when none of the field record relation indicators are 
ON, only the specification without any field record re- 
lation indicator is used. 


Control Level or Matching Record Indicator 


The use of control level or matching record indicators 
signifies that the data from the field is to be made 
available only if a control level break or matching 
record condition has occurred on this record. 
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Figure 8-26. Field Record Relations - Using the OR Relationship 


Restrictions: 


a. A control Yevel indicator should not be used on 
an input specification line to show the field 
record relation of a field that is designated in 
columns 59-60 of the same line as a part of, or 
the control group. 


b. The matching record indicator (MR) should not be 
used on an input specification line to show the 
field record relation of a field that is desig- 
nated in columns 61-62 of the same line as a part 
of, or all of, the matching record input control 
group. 


To overcome these restrictions, the fields have to be de- 
fined twice, once to specify the control and/or matching 
fields, and again on another specification line (but with 
a different Variable Name) to specify the field record 
relations desired. 


U1-U8 External Indicators 
External indicators are used primarily to condition files 


in the File Description Specifications (see columns 71-72, 
FILE CONDITION). However, they may also be used to con-7 


65-70 


65-66 


67-68 


69-70 


dition fields even though file conditioning is not speci-~ 
fied. Data from the associated field will be accepted 
only when the specified indicator is ON. 


HO-H9 Halt Indicators 


The halt indicators are used to show a field/record rela- 
tionship, and specify that the data in the field is to be 
made available only when the given halt indicator is ON. 
This would usually be used (with a record specified with 
the halt indicator in columns 19-20, RECORD IDENTIFYING 
INDICATOR) to load a signal pertaining to the reason or 
conditions of the halt operation. 


FIELD INDICATORS 


The FIELD INDICATOR field is composed of three subfields that allow 
the data of the input field to be tested as follows: 


a. If the input field is defined as numeric, the data is tested 
for a positive, negative, or zero condition. 


b. If the input field is defined as alphanumeric, the data is 
tested for greater than blank, less than blank, or blank, 
according to the EBCDIC collating sequence. 


Valid entries are: 


Definition 


No field indicators used, 


Field indicator. 


Halt indicator. 


The FIELD INDICATOR field is subdivided as described in the paragraphs 
that follow. 


PLUS 


Any valid indicator specified in this field will turn ON if the cor- 
responding data field is greater than zero (numeric field only) or 
greater than blank (alphanumeric field). 


MINUS 


Any valid indicator specified in this field will turn ON if the 
corresponding data field is less than zero (numeric field only) or 
less than blank (alphanumeric field). 


ZERO OR BLANK 
Any valid indicator specified in this field will turn ON if the cor- 


responding data field is zero (numeric field only) or blank (alpha- 
numeric field). 


The following rules must be observed when assigning and using field 
indicators: 


a. 


ae 


All field indicators are OFF at the beginning of the program, 
and remain OFF until the condition being tested is satisfied 
on the input record just read. 


If the RPG I dialect is specified on the Control Card Specifi- 
cations or the $ ZBINIT option card is included in an RPG II 
program, then any indicators from 01-99 which are used as 
zero/blank indicators are set ON at the beginning of program 
execution unless they are also used as record identifying in- 
dicators. All other field indicators are set OFF at the be- 
ginning of the program. Field indicators are set ON if: 


1. The condition being tested is satisfied by the input 
record just read, or 


2. In the case of zero/blank indicators which may have been 
set ON during the previous output cycle. 


If the condition being tested is not satisfied, the indicator 
is turned OFF. 


NOTE 


When the RPG I dialect option is speci- 
fied, it can be overridden by including 
a $NZBINIT option card in the program. 


A field may be assigned more than one indicator; however, only 
the indicator specified for the condition with a true result 
will be turned ON. All other indicators assigned to the field 
will be turned OFF. 


The state of a field indicator assigned to fields in different 
record types is always determined by the last record selected. 


The state of a field indicator assigned to more than one field 
within one record type is determined by the last field to 
which it is assigned. 


When different field indicators are assigned to fields in 
different record types, a field indicator will remain ON 
(or OFF) until another record of the same type is selected. 


If a halt indicator specified in the FIELD INDICATOR field 

is turned ON as a result of the corresponding condition being 
true, the program will halt after the input record which 
caused it to turn ON has been completely processed. 


Field indicators cannot be assigned to whole arrays. 


75-80 PROGRAM IDENTIFICATION 


Refer to Section 2 for a complete description. 


SECTION 0 


CALCULATION SPECIFICATIONS AND 
OPERATION CODES 


Calculation Specifications are used mainly to indicate the sequence and timing 
of the data manipulation that belongs to the following two broad categories: 


a. Arithmetic, logical, and manipulative operations on defined data 
elements (fields), and 


b. Input/output control of some kinds of files. 
The Calculation Specifications describe the operations to be performed on the 
data and specify the order in which the operations are to be performed. Cal- 
culation Specifications are of three types, which are optional, but if they 
occur, must appear in the following order: 


a. Detail calculations. 


b. Total calculations. at 
ec. Subroutines. 


Subroutines must not be the only Calculation Specification entries, because 
subroutines can only be accessed from detail or total calculations. 


Within each grouping, operations are performed in the order in which they are 
written. 


Each specification line describes one operation, and is divided into three 
functional parts: 


a. Conditions under which the operation is to be performed 
(columns 7717). 


b. The kind of operation to be performed and the data which is to be 
operated upon (columns 187-53). 


c. Tests to be made upon the results of the operation (columns 54-59). 
FIELD DEFINITIONS 


Figure 9-1 can be used in conjunction with the following field definitions for 
the Calculation Specification. 


1-2 PAGE 
Refer to Section 2 for a complete description. 
375 LINE 


Refer to Chapter 2 for complete description. 
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Burroughs B 1700 RPG 
PROGRAM ID 
PROGRAMMER 
: mT CALCULATION SPECIFICATIONS detec 75 80 
PAGE HALF ADJUST 
FORM TYPE lls LEVEL DECIMAL POSITIONS IREMTEIOATION GEEUaE 


FACTOR 1 


5 


FACTOR 2 


wo NOT 


|_| NOT | 


A. Contains one of the following control level indicators: 
LO-L9 (perform calculation at control break), LR (per- 
form calculation after the last record), SR (calcula~ 
tion is part of a subroutine), AN, OR (establishes AND 
or OR relationships between indicators), or blank. 


B. 9-17 Columns 10-11, 13-14, 16-17 may contain up to 3 
indicators to condition a calculation operation. 
Entries: Blank, 01-99, L1-L9, LR-MR, HO-H9, U1-U8, 
OA-OG, or OV Columns 9, 12, 15 specify that the 
following indicator is to be off. Entries: Blank 
or N. 


C. 18-27 Contains either the name of any user or compiler 
defined field, an alphanumeric or numeric literal, any 
subroutine, or TA@ name, or vector name, any special 
name, or blank. Entry must be left~justified. 


D. 28-32 Specifies the type of operation to be performed. 
Entries: ADD, Z-ADD, SUB, Z-SUB, MULT, DIV, MVR, 
XFOOT, SQRT, MOVE, MOVEA, MOVEL, MLLZO, MHHZO, MLHZO, 
MHLZO, COMP, TESTN, TESTZ, BITON, BITOF, TESTB, SETON, 
SETOF, GOTO, TAG, TIME, ZIP, LOKUP, BEGSR, ENDSR, EXSR, 
FORCE, EXCPT, DSPLY, READ, CHAIN, RECV, SEND, SETLL, 
or DEBUG. Entry must be left-justified. 


E, 337-42 Contains either the name of any user or com- 
piler defined field, any alphanumeric or numeric 
literal, a subroutine name, a vector name, any 
special name, a GOTO operation label, a filename or 
blank. Entry must be left-~justified. 
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Figure 9-1. 
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43-48 Specifies the name of the field, vector, or 
vector element that will be used to store the re~ 
sults of the operation. Entry must be alphanumeric 
and left-justified. 


49-51 Specifies the length of the result field. 
Entries: Blank or any decimal numeric. 


52 Specifies the number of decimal positions. If 
blank, entry is alphanumeric. Entries: Blank or 
0-9. 


53 Specifies if the contents of the result field 
are to be rounded off. Entries: Blank or H. 


94-55 Entry is turned on if the result field is posi-~ 
tive or FACTOR 1 is the highest in a compare opera~ 
tion, or FACTOR 2 is the highest in a lookup operation 
or a tested zone (TESTZ) is a plus-zone. Entries: 
01-99, L1-L9, LR, HO-H9, OA-OG, OV or blank. 


56-57 Entry is turned on if the result field is nega- 
tive, or FACTOR 1 is the lowest in a compare opera~ 
tion, or FACTOR 2 is lowest in a lookup operation, 

or a tested zone (TESTZ) is a minus~zone. Entries: 
01-99, L1-L9, LR, HO-H9, OA-OG, OV or blank. 


58-59 Entry is turned on if the result field is 
zero, or FACTOR 1 is equal to FACTOR 2 in a compare 
or lookup operation, or a tested zone (TESTZ) is 
neither a plus~ or minus~zone. Entries: 01-99, 
L1-L9, LR, HO-H9, OA-OG, OV or blank. 


Calculation Specifications Summary Sheet 


FORM TYPE 
A C must appear in this field. 
CONTROL LEVEL 


The valid entries for this field are listed below, and each entry is 
described in the paragraphs that follow. 


Entry Definition 


Blank Calculation operation is 
part of detail calculations 
or may be part of a subroutine. 


LO-L9 Calculation operation is per- 
formed in total calculations 
when the designated control 
break occurs or the speci-~ 
fied indicator is set ON 

(LO is always ON). 


LR - Calculation operation is per- 
formed after the last record 
has been processed (or if set 
ON). 


SR Calculation operation is part 
of a subroutine (documenta- 
tional not required for sub- 


routines). 
| 
AN,OR Establishes AND and OR re- 
lationship between lines of 
indicators. 


An entry of LO-L9Y or LR indicates that the operation is performed 
during total calculations when the specified indicator is ON. The 
first entry of LO-LY or LR in columns 7-8 determines the start of 
total calculations. All detail calculations (if any are specified) 
must precede any total calculations. Any operations with blanks in 
columns 77-8 occurring before any total operation, or any BEGSR opera- 
tion, are treated as detail operations, and are performed during detail 
calculations in every cycle depending upon the conditions specified in 
columns 9-17. 

‘ 
Subroutines, if used, must be specified after all detail and total 
lines. For a subroutine, column 7-8 may contain SR, OR, AN, or blank. 
The first BEGSR operation determines the start of subroutines. 


LO-L9 Control level indicators LO-L9Y are used to condition opera- 
tions that are to occur at a control break. If a control 
level indicator is specified in columns 7-8, the operation 
described on the same specification line is done only when 
the designated indicator is ON. When a control break for a 
certain level occurs, al] lower control level indicators 
also turn ON. However, when a: control level indicator used 
as a record identifying indicator turns ON to indicate a 
specific record type, or when a control level indicator is 


9-3 


1 2 


turned ON by a SETON operation, all lower level indicators 
remain OFF. Control level indicators need not be specified 
in any particular order. Operations will be executed in the 
order in which they are specified, providing the control 
level indicator, columns 7-8, is ON. 


The LO indicator is turned ON during every cycle of the pro- 
gram after detail output. If no other control level in- 
dicators are assigned, but it is desired to perform total 
calculation and total output operations, the LO indicator may 
be used to condition those operations. LO indicator coding 
is illustrated in figure 9-2, 
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Figure 9-2. LO Indicator Coding Example 


The LR indicator automatically turns ON when the last record 
of the appropriate file has been read and processed (all 
control level indicators L1-L9 also turn ON). This indica- 
tor is used to condition those operations that are to be 
performed at End-of-File. The LR indicator can also be 
turned ON by its specification as a calculation resulting 
indicator. In that case, if the LR indicator is turned ON, 
the lower control levels are not set ON as a result. When 
the LR indicator is used as a resulting indicator in Calcu- 
lation Specifications, the operation should be conditioned by 
NLR to avoid the inadvertent resetting of the LR indicator. 


SR The SR entry is not an indicator; rather, it is used to in- 
dicate that the specification on the same line is part of a 
subroutine. All subroutine lines must be specified after 
all other calculation lines. Subroutines must be specified 
after all detail and total lines are specified. For a sub- 
routine specification line, columns 7-8 can contain SR, OR, 
AN or blank. The BEGSR operation determines the start of a 
subroutine. 


AN-OR This field may also be used to specify that lines of indica- 
tors are in an AND or OR relationship. There is no limit on 
the number of AND or OR lines that may be specified; however, 
it is recommended that the user not exceed seven if compati- 
bility with other Burroughs systems is desired. The last 
line of a group in an AND or OR relationship contains the 
Operation Code and all operands. All previous lines in the 
group must contain blanks in columns 18-59. The first line 
of a group may contain an LO-L9Y, LR, or SR entry if the en- 
tire group is conditioned by a control level indicator or is 
part of a subroutine. Each AND/OR line, and the previous 
line, must contain at least one indicator in columns 9-17. 
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Figure 9-3. AND/OR Relationship Coding Example 


INDICATORS 


This field is divided into three subfields such that up to three in- 
dicators on each line may be specified to condition a calculation 
operation. Each subfield is divided into two parts, as follows: 


a. NOT (one column). 
b. INDICATOR (two columns). 


The NOT portion is used to specify that the associated indicator must 
be OFF in order for the operation to occur. If this condition is 
desired, an N must be entered in the NOT position; otherwise, the NOT 
portion must be left blank. 


The INDICATOR portion is used to specify the indicator to be tested 
for ON (NOT = blank) or OFF (NOT = N). Only the following entries 
are allowed in this portion of the INDICATOR field: 


Entry Definition 


Blank Operation not conditioned by any 
indicator. 


01-99 Operation conditioned by indi-~ 


| 
| cator used elsewhere in the 
program, 
LO-L9 Operation conditioned by con- 
trol level indicator previously 
| assigned. 
| 


LR Operation conditioned by last 


record indicator. 


MR Operation conditioned by matching 


record indicator. 


HO-H9 | Operation conditioned by halt in- 
dicator used elsewhere in the 
program. 


U1-U8 | Operation conditioned by ex 
| ternal indicator previously 
defined. 


OA-OG, OV Operation conditioned by over- 
flow indicator previously defined. | 


All three indicators on one line are in an AND relationship. All in- 
dicators on one line (or grouped lines), plus the Control Level 
Indicator (if used) must be ON or OFF as specified, in order for the 
associated operation to take place. 


Kach of the indicators is discussed in the paragraphs that follow. 


Indicators 01-99 


a. To condition calculation operations that are to be performed 


only for specific input record types (record identifying 
indicators). 


b. To condition calculation operations that are to be performed 
Only when an input field satisfies certain conditions 
(field indicators). 


ec. To condition calculation operations according to the results 
from previous operations that were specified in the Calcula- 
tion Specifications (resulting indicators). 


Control Level Indicators (LO-L9) 


The control level indicators are normally defined in the CONTROL LEVEL 
field of the Input Specifications, but can be used as calculation, re- 
sulting indicators. For either usage, the control level indicators 
entered in columns 9-17 signify an operation~to~be pérformed only 

' during -the-first-tycle and after a control break. 


The following information is applicable when control level indicators 
are specified in the INDICATORS field: 

E ig P : ia é Se RNY ty oa we ty ; 
a. IKIf the operation is performed during detail calculations, it. 


occurs only while processing the first record of the new 
sroup. 
b. If the operation is performed during total calculations, it 


occurs only when the control break specified in columns 7-8 

and the control break specified in the INDICATORS field are 

both satisfied. When both control breaks are satisfied, the 
last record of a control group has been processed. 


c. If the operation is part of a subroutine and is called from 
detail calculations, it occurs only while processing the 
first record of the new group. 


d. If the operation is part of a subroutine and is called from 
total calculations, the operation occurs only if the EXSR is 
of an equal or higher control level than the control level 
indicator specified in the INDICATORS field. 


Last Record Indicator (LR) 


The last record indicator is used to condition operations that are to 
be performed at end-of-job. 


Matching Record Indicator (MR 

The matching record indicator is used to indicate whether an operation 
is to be performed only relative to the status of the matched records 
found. 


The following rules must be observed when using the MR indicator: 


a. When used during detail calculations, MR refers to the status 
of the match fields of the record last selected. 


b. When used during total calculations, MR refers to the status 
of the match fields of the record prior to the last record 
selected. 
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c. When used in a subroutine that is called during detail calcu- 
lations, MR refers to the status of the match fields of the 
record last selected. When used in a subroutine that is 
called during total calculations, MR refers to the status of 
the match fields of the record prior to the last record 
selected. 


Halt Indicators (HO-HQ9) 


Halt indicators previously assigned in the Field Indicators field of 

the Input Specifications or Resulting Indicators field of the Calcu- 

lation Specifications can be used to condition operations that are to 
be performed only when an error condition occurs. 


Since the program does not halt until the record in error has been 
completely processed, action must be taken to prevent reporting the 
erroneous results. By using the halt indicators in conjunction with 
an N entry in the NOT portion of the INDICATORS field, an operation 
can be inhibited when the specified halt indicator is ON. 


External Indicators (U1-U8) 


External indicators can be used to condition operations that are to be 
performed only when the specified indicator has been set at program 
execution time. Refer to the description of the FILE CONDITION field 
in the section on File Description Specifications for a complete des- 
cription of external indicators. 


Overflow Indicators (OA-OG, OV) 


These indicators, previously assigned in the File Description Specifi- 
cations, can be used to condition operations that are to be performed 
when the overflow line of a printer file has been reached. 

FACTOR 1 


This field is used to supply data to be operated on by the Operation 
Code specified in columns 28-32. 


Allowable entries are: 


a. The name of any field previously defined or to be defined 
later. 


b. A literal (alphanumeric or numeric). 

c. A label (tag name, subroutine name, END subroutine name). 

d. A vector name or an element of a vector. <A vector element is 
composed of the vector name, followed by a comma, followed by 


the desired index value. 


e. The special words UDATE, UMONTH, UDAY, UYEAR, PAGE, and 
PAGEn. 


Entries, including numeric literals, in this field must be left- 
justified. 


28-32 


33-42 


43-48 


OPERATION 


This field is used to specify the proper operation to be performed 
using FACTOR 1 and FACTOR 2. The Operation Code must be left- 
justified in the field. 


Operations are performed in the order in which they appear on the 
Calculation Specifications sheet; however, all operations conditioned 
by control level indicators specified in the CONTROL LEVEL field must 
appear after those operations not conditioned by control level indi- 
cators and prior to all subroutines. 


Each of the operation codes is discussed in detail in the second 
portion of this section of the manual. 


FACTOR 2 


This field is used to supply data to be operated on by the Operation 
Code specified in columns 28-32. Allowable entries are: 


a. The name of any field defined elsewhere in the program. 

b. A literal (alphanumeric or numeric). 

c. The name of a subroutine (EXSR operation only). 

d. A vector name or an element of a vector. A vector element is 
composed of the vector name, followed by a comma, followed by 


the desired index value. 


e. The special words UDATE, UMONTH, UDAY, UYEAR, PAGE, and 
PAGEn. 


f. A label (GOTO Operation only). 


g. A filename (DEBUG, DSPLY, CHAIN, READ, RECV, SEND or FORCE 
operation only). 


Entries in this field must be left-justified. 
RESULT FIELD 


The use of this field is dependent upon the particular operation being 
performed. The entry in this field is used to name the field, vector, 
or vector element that is to be used to store the results of the oper- 
ation specified on this specification line. 


All entries in the RESULT FIELD must be left-justified. The entry can 
be the name of a vector or vector element defined elsewhere in the pro- 
gram, or the name of a field described elsewhere in the program or on 
this specification line. Special words, except those in the following 
list, can also be entered in the RESULT FIELD. 
The following special words must never be used in the RESULT FIELD: 

a. UDATE 


b. UMONTH 
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O2 


O3 


c. UDAY 
d. UYEAR 
Also, literals must never be used in the RESULT FIELD. 


Definition of a new field is also allowed, and is accomplished by 
entering the new field name, along with FIELD LENGTH and DECIMAL PO- 
SITIONS entries for that field. Refer to Section 2 for a complete 
description of field names. 


FIELD LENGTH 


This field is used to specify the length of a result field that has 
not been previously defined. Numeric and alphanumeric fields are 
limited to the size specified in Section 2. 


If this entry is left blank the field must be defined elsewhere. This 
field must be blank if RESULT FIELD is blank. It is allowable to 
enter the length of a field that has been previously defined; however, 
the length and number of decimal positions specified must be the same 
as that previously defined. 


Entries in this field must be right~justified, and leading zeros 
are optional. 


DECIMAL POSITIONS 
This field is used to specify the number of positions to the right of 
the implied decimal point in a numeric result field. If the RESULT 


FIELD is alphanumeric, or the FIELD LENGTH is blank, this field must 
be left blank. The valid entries are: 


Alphanumeric field. 


Number of decimal positions 
in a numeric field. 


When defining numeric fields, the number of decimal positions must be 
the number of decimal specified; if the field only contains integral 
values, a zero must be entered to indicate no decimal positions. 


The number of decimal positions specified must not exceed the length 
of the RESULT FIELD, as specified by the FIELD LENGTH entry. 


HALF ADJUST 


This field is used to indicate whether or not the contents of the 
RESULT FIELD are to be rounded. Rounding is accomplished by adding 5 
(or -5 for negative values —- the™aigit to the right of the last 

dec 1a osition of the HLD. Then all digits to t ight 


of the last decimal eae: are dropped. Valid entries for this field 


are; 


04-59 


60-74 


75780 


Definition 
Do not half adjust. 
Half adjust. 


Entries in this field are allowable only for certain arithmetic 
operations. 


RESULTING INDICATORS 


The indicators U1-U8, MR, or IP must not be entered in this field. 
Any other RPG indicator or blanks are valid entries. 


Valid entries for this field are: 


Entry . Definition 

01-99 Any numeric indicator. 

L1-L9 Any control level indicator. 
LR Last record indicator. 

HO-H9 Any halt indicator. 

OA-0OG, OV Any overflow indicator. 


Indicators specified in these columns are set OFF immediately before 
the operation is performed. Immediately after the operation, indi- 
cators are set ON to indicate the result of the operations. The use 
of the result indicators is dependent on the type of operation speci- 
fied, 


Resulting Indicators must not be specified when the RESULT FIELD 
contains an array name, the only exception being a LOKUP operation. 


Figure 9-4 illustrates the use of resulting indicators and various 
operation codes. The specific uses of the result fields is further 
described in the discussion on the various operation code types in 
this section. 

COMMENTS 


This field is available for inclusion of comments and documentary 
remarks, and may contain any valid EBCDIC characters. 


PROGRAM IDENTIFICATION 


Refer to Chapter 2 for a complete description. 


OPERATION CODES 


Various categories of Operation Codes are provided to allow data manipulation 
required by the RPG programmer. Operation Codes are entered only in the OPER- 
ATION field of the Calculation Specifications, and specify what type of 
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arithmetic, logical, or input/output operation is to be performed on the 
associated operands. 


Table 9-1 summarizes each of the operation codes discussed in the following 
paragraphs. 


ARITHMETIC OPERATIONS 


In the descriptions of arithmetic operations in the following paragraphs, an 
indexed vector or a table name is valid anywhere that a field name is valid 
except as noted. Arithmetic operations are allowed only on numerically de- 
fined data items. FACTOR 1 and FACTOR 2 fields must contain the names of 
numeric fields or numeric literals. The RESULT FIELD must be numeric. All 
results are Signed and decimal alignment is performed. If the RESULT FIELD 
is not large enough to hold the result of an arithmetic operation, the result 
is truncated at either or both ends following decimal alignment. If the 
RESULT FIELD is too large to hold the result of an arithmetic operation, then 
leading and trailing zeroes are inserted following decimal alignment. 


FACTOR 1, FACTOR 2 and the RESULT FIELD may all be different fields or any 
two or all three may be the same field. HALF ADJUST may be specified for all 
operations except SQRT and MVR (i.e., DIV when followed by MVR). Resulting 
indicators may be specified for all operations provided the RESULT FIELD is 
not a whole array. 


The use of result indicators in connection with arithmetic operations is as 
shown below: 


a. Plus (Columns 54-55). Any indicator entered in this field will be 
turned on if the result of an arithmetic operation is positive. 


b. Minus (Columns 56-57). Any indicator entered in this field will be 
turned on if the result of an arithmetic operation is negative. 


c. Zero (Columns 587-59). Any indicator entered in this field will be 
turned on if the result of an arithmetic operation is zero. 


Each of the arithmetic operations is discussed in the paragraphs that follow. 


ADD This operation adds the contents of FACTOR 2 to the contents of 
FACTOR 1 and stores the sum in the RESULT FIELD. FACTOR 1 and FACTOR 
2 are not affected by this operation, unless one of them is also des- 
ignated as the RESULT FIELD. HALF ADJUST may be specified. 


SUB This operation subtracts the contents of FACTOR 2 from the contents 
of FACTOR 1 and places the difference in the RESULT FIELD. FACTOR 1 
and FACTOR 2 are not affected by this operation, unless one of them 
is also designated as the RESULT FIELD. 


Note that subtracting two fields which are the same gives the same 
result as clearing the RESULT FIELD to zero, and can be used as a 
method of clearing fields to zero. 


MULT This operation multiplies the contents of FACTOR 1 by the contents of 
FACTOR 2 and stores the product in the RESULT FIELD. FACTOR 1 and 
FACTOR 2 are not affected by this operation, unless one of them is 
also designated as the RESULT FIELD. HALF ADJUST may be specified. 


Table 9-1: 
Operation 
Operation | Code 
Ty pe Columns 
| 28-32 Definition 
Arithmet~— ADD Add Factor 2 to Factor 1 


ae Z-ADD 


Clear Result Field and add Factor 2 


Opera~ 
tions Subtract Factor 2 from Factor 1 
Z-SUB Clear Result Field and subtract Factor 2 
Multiply Factor 1 by Factor 2 
Divide Factor 1 by Factor 2 
MVR Move remainder of preceding division to a 
Result Field 
XFOOT Sum elements of an array and put sum in 
Result Field 
SQRT Derive the square root of Factor 2 
Move Move Factor 2 into Result Field, right-justified 


Operation Move Factor 2 into Result Field, left-justified 


Moves data (left justified) into, or out of, an 
alphanumeric array. 


Move 
zone 
Operation 


Move zone from low-order position of Factor 2 
to low-order position of Result Field 


Move zone from low-order position of Factor 2 to 
high-order position of alphanumeric Result Field 


Factor 2 to low-order position of Result Field 
1 to Factor 2 


Compare 
Operations 


Compare Factor 


Result Field 


TESTN Tests a numeric value of the field specified by 
the Result Field. 
Raiass | RITON Set on specified bits 
Field BITOF Set off specified bits 


Test specified bits 


Operations TESTB 
SETON 


Set one, two, or three specific indicators on 


Indicators | SETOF two, or three specific indicators oft 
Program GOTO Branch to another calculation specifica- —— 
Branching tion line 
Operat tons TAG Identify the name in Factor 1 as a destination 
label to which GOTO may branch 
Transter : 
Control ZIP Initialize System commands 


Function 


Lookup LOKUP 
Operations 


Table or array lookup 


Beginning of the subroutine 


Move zone from high-order position of alphanumeric 
Factor 2 to high order of alphanumeric Result Field 


Move zone from high-order position of alphanumeric 


Tests the zone portion of the leftmost character of 


Summary of Operation Codes 
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End of the subroutine 


Sub BEGSR 
EXSR 


Program FORCE 
rane” OBXERE 
of EXCPT 


Input DSPLY 


Call to execute the subroutine 
Forcing record to be read next 
Causes output 


A field is printed on the console printer and- 
or data is entered via the console printer into 
a tield os 


and 
Out put 


B 
B 
B 
B 
os 
Es 
|B 
Ba 


A record 1s read from a demand file 


READ 

CHAIN 
Debug DEBUG 

Operation 


TIME Time of day / time and day. 


A record is read from a disk file 


Aid in finding programming errors 


Process 


Within 
Limits 
NOTES 
0 - Optional E1-> 
R~- Required 
B- Blank 


SEND Writes to the remote file specified in FACTOR 2. 

RECV Reads from the remote file specified in FACTOR 2. 

SETLL Sets the lower limit for a demand file processed 
sequentially within limits. 


Only the Equal Indicator columns may be used. 
indicator will be turned on if end-of-file occurs on 
the demand file while reading or attempting to read. 
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Table 9-2 provides an example of the contents of the RESULT FIELD 

for the multiplication operation, showing various field lengths and 
decimal positions. In the example, all fields that are permitted are 
shown, although some contain incomplete results. Fields not permitted 
are blank; HALF ADJUST is not specified. Note that a field length of 
eight with five decimal positions gives all the significant digits 
without adding zeros either left or right. 


This operation divides the contents of FACTOR 1 by the contents of 
FACTOR 2 and places the quotient in the RESULT FIELD. FACTOR 1 and 
FACTOR 2 are not affected by this operation, unless one of them is 
also designated as the RESULT FIELD. 


Any remainder resulting from the divide operation will be lost unless 
the next operation specified is the MOVE REMAINDER operation (MVR); 
if so, the result of the divide operation cannot be half adjusted. 
The RESULT FIELD cannot contain a whole array when an MVR is the next 
operation. 


If FACTOR 2 is equal to zero, the operator is notified and the program 
discontinues. 


This operation moves the REMAINDER from a previous DIV operation to 
the designated RESULT FIELD. The MVR operation must immediately 
follow the DIV operation, and FACTOR 1 and FACTOR 2 must be left 
blank. The RESULT FIELD for the MVR operation must be the same length 
as FACTOR 2 for the DIV operation. Both the DIV and the MVR may be 
conditioned on indicators, which need not be the same for both opera- 
tions. However, the programmer must ensure that the MVR operation is 
never performed without the DIV, otherwise the result of the MVR is 
undefined. HALF ADJUST must not be specified. 


The following considerations should be made when specifying the size 
of the RESULT FIELD: 


a. The number of significant decimal places in the REMAINDER is 
the larger of: 


1) The number of decimal positions in FACTOR 1 of the 
previous DIV operation. 


2) The sum ot the decimal positions in FACTOR 2 and the 
RESULT FIELD of the previous DIV operation. 


b. The maximum integer positions in the REMAINDER equals the 
integer positions in FACTOR 2 of the previous DIV operation. 


ce. The RESULT FIELD must not ve a whole array. 


Figure 9-5 provides a DIV and MVR coding example. 
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Table 9-2. RESULT FIELD Contents for Various Field Lengths 
and Decimal Positions ~ MULT Operation 


Decimal Positions 


Field 
Length 0) 1 2 3 5 7 
2 


| 


000192 00192.6 0192.61 192.611 92.6111 2.61116 .611160 


000000192 00000192.6 0000192.61 000192.611} 00192.6111 0192.61116 192.611160 92.6111600 2.61116000 .611160000 
0000000192 000000192.6 |00000192.61 | 0000192.611/000192.6111 | 00192.61116 | 0192.611160 | 192.6111600 | 92.61116000 | 2.611160000 


m 
beens 
cm 
ca 


NOTE 


RESULT FIELD contents for the multiplication 
operation: 89.67 MULT 2.148. 


SQRT 


XFOOT 


CALCULATION SPECIFICATIONS 


HALF ADJUST 
DECIMAL POSITIONS 


FACTOR 2 


FACTOR 1 


FIELD 
LENGTH 


Figure 9-5. DIV and MVR Coding Example 
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The operation derives the SQUARE ROOT of the contents of FACTOR 2 
and places it in the RESULT FIELD. FACTOR 1 must be left blank. 


To obtain reasonable precision from SQRT, the following points should 
be observed: 


a. For every digit left of the decimal place in the RESULT FIELD, 
there should be two digits left of the decimal placed in 
FACTOR 2. 


b. For every digit right of the decimal point in the RESULT 
FIELD, there should be two digits right of the decimal point 
in FACTOR 2. 


The result of the SQRT operation is automatically adjusted; therefore, 
a HALF ADJUST entry for SQRT is not allowed. 


If the FACTOR 2 operand is negative, the program will display a "SQRT" 
error message and halt. The operator may resume processing, in which 
case the RESULT FIELD will set to zero. 


Table 9-3 provides an example of the contents of the RESULT FIELD 

for the square root operation. In the example, all fields that are 
permitted are shown, although some contain incomplete results. Fields 
not permitted are blank. 


This operation is used to crossfoot (sum) the elements of a numeric 

array. All the elements of the array specified by FACTOR 2 are summed 
and the total placed in the RESULT FIELD. FACTOR 1 must be left blank. 
The RESULT FIELD must not be a whole array. 


Resulting indicators may be specified. If the RESULT FIELD is an 
element of the array named in FACTOR 2, the value of that element 
before the XFOOT operation is used in obtaining the total. HALF 
ADJUST may be specified. 
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Table 9-3. RESULT FIELD Contents for Various Field Lengths 
and Decimal Positions - SQRT Operation 


Decimal Positions 


Field 
Length 1 3 


i) 00055 0054.7 054.72 94.721 4.7213 72130 


es 0000055 000054.7 00054. 72 0054. 721 054.7213 54.72130 ~721305 
00000055 0000054.7 000054. 72 00054.721 0054. 7213 054.72130 4.721305 
000000055 00000054.7 0000054. 72 000054.721 00054. 7213 0054. 72130 54.721305 


10 0000000055 000000054. 7 00000054. 72 0000054. 721 000054.7213 00054. 72130 054.721305 
Ll 00000000055 0000000054.7 000000054. 72 | 0000054. 721 | 


12 000000000055 00000000054.7 0000000054. 72 | 000000054.721 | 
13 0000000000055 000000000054.7 00000000054. 72 


14 


- 7213048 


4.7213048 « 72130482 


54.7213048 4.72130482 
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54.72130482 


054.7213048 


0054. 7213048 054. 72130482 
00054.7213048 0054. 72130482 


000054. 7213048 00054. 72130482 
0000054.7213048 | 000054. 72130482 


0054.721305 


00054. 721305 


000054. 721305 


| 


0000054.721305 


00000054. 721305 


! 


NOTE 


RESULT FIELD contents for the square 
root operation: SQRT 2994.42. 


Z—-ADD This operation sets the RESULT FIELD to zeros, and adds the contents 
of FACTOR 2 to the RESULT FIELD. FACTOR 1 must be left blank. 


FACTOR 2 is not affected by this operation unless it is named in the 
RESULT FIELD. HALF ADJUST may be specified. 


Z~ SUB This operation sets the RESULT FIELD to zeros, then subtracts the 
contents of FACTOR 2 from the RESULT FIELD. FACTOR 1 must be left 
blank. This operation is used to change the sign of the field desig~- 
nated by FACTOR 2. HALF ADJUST may be specified. 


Note that this is the same as Z~ADD, but the sign is changed. 


In the example shown in figure 9-6, if the contents of FIELDA equals 
678.9321, then the contents of FIELDB will equal 000678.93, and the 
contents of FIELDC will equal ~000678.93. 


CALCULATION SPECIFICATIONS 


HALF ADJUST — 
DECIMAL POSITIONS 


OPERATION FACTOR 2 


LENGTH 


G14057 


Figure 9-6. Z-ADD and Z-SUB Coding Example 


MOVE OPERATIONS 


MOVE operations transfer the contents of the FACTOR 2 field to the RESULT 
FIELD. FACTOR 2 is not affected by the MOVE operation. FACTOR 1 must be left 
blank. Resulting indicators can be specified to indicate the status of RE- 
SULT FIELD (plus, minus, or zero/blank) in the same manner as field indica- 
tors on Input Specifications. If FACTOR 2 and the RESULT FIELD are the same 
length, MOVE and MOVEL operate in the same manner. FACTOR 2 can be a field, 
vector, vector element, or literal; however, a RESULT FIELD can only be a 
field, vector, or vector element. 


An array name may be entered in FACTOR 2 as long as the RESULT FIELD also 
specifies an array. In this case, the designated move operation will be per- 
formed on each element of the array designated in FACTOR 2, with the result 
being placed in the corresponding elements of the array designated in the 
RESULT FIELD. The operation is terminated when the end of the shorter 

array is reached. If the RESULT FIELD is an array and FACTOR 2 is not, then 
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the designated move operation will be performed on FACTOR 2, with the result 
being placed in all elements of the RESULT FIELD array. 


For the purpose of MOVE, MOVEL, the "sign" of the variable is defined as (1) 
the algebraic sign if the variable is numeric, or (2) the low order zone if 
the variable is alphanumeric. 


Move operations may be specified between fields of different data types. This 
will convert an alphanumeric to a numeric and vice versa. Decimal points are 
ignored in all move operations. HALF ADJUST may not be specified with MOVE 

or MOVEL. 


MOVE This operation moves characters from FACTOR 2 to the RESULT FIELD, 
starting with the rightmost character and continuing until either the 
source field is exhausted, or the destination field is filled. The 
sign of FACTOR 2 is moved to the sign position of the RESULT FIELD. 


When an alphanumeric~to~numeric move is specified, the digit portion 
of each character is moved to the RESULT FIELD. Blanks are trans- 
ferred as zeros. The zone portion of the rightmost alphanumeric char- 
acter is used as the sign of the RESULT FIELD. 


When a numeric~to-~alphanumeric move is specified, each digit is con- 
verted to its corresponding internal character code as it is moved 

to the RESULT FIELD. The sign of the numeric field is placed in the 
zone portion of the rightmost character. If the numeric field is posi- 
tive, then the zone portion of the rightmost character contains the 
systems standard positive sign (hexadecimal C). If the numeric field 
is negative, then the zone portion of the rightmost character contains 
the systems standard negative sign (hexadecimal D). If writing to the 
printer, characters A thru I, or ? are printed in the rightmost char- 
acter of the field. The characters A thru I represent digits 1 thru 9, 
respectively. The question mark character (?) represents digit O. 
Refer to Appendix B for more information concerning the hexadecimal 
values for the B 1800/B 1700 character set. 


MOVE operations are shown in table 9-4. 


MOVEL This operation moves, left-justified, characters from FACTOR 2 to 
the RESULT FIELD, starting with the leftmost character and continuing 
until either the source field is exhausted, or the destination field 
is filled. 


When a numeric to alphanumeric move is specified, each digit is 
converted to its corresponding internal character code as it is moved 
to the RESULT FIELD. 


When an alphanumeric~to~numeric move is specified, only the digit 
portion of each character is moved to the RESULT FIELD. Blanks are 
transferred as zeros. 


The sign is transferred only if the RESULT FIELD is numeric and not 
greater in length than FACTOR 2 or if the result is alphanumeric and 
equal in length to FACTOR 2. The sign of FACTOR 2 is the algebraic 
sign if it is a numeric data item or low order zone if FACTOR 2 is 
alphanumeric. 


MOVEL operations are shown in table 9-5. 


Table 9-4. MOVE Operations 


| RESULT FIELD LARGER THAN FACTOR 2. 


| "4 FACTOR 2 RESULT FIELDS 
| AB4S K Before MOVE Operation 123456789 
Alph L238 4S 67 Be 9 
Die tae AB4S K After MOVE Operation Dar We tee Gee ee 
AB4S K Before MOVE Operation +123 45 678 9 
Alph 
Be cea AB4S K After MOVE Operation toe eo a oy umene 
nnn ann nnn 
| N ~9 8 7 65 4 3 Before MOVE Operation 41123456789 ; 
! ce Se we oe After MOVE Operation DY Sea See 
98765 4 34 Before MOVE Operation ABCDEFGHI 
N . - ° 
sec 987654 3 After MOVE Operation ABO @ 76.5 43 7 Pranumene 
RESULT FIELD SMALLER THAN FACTOR 2. 
FACTOR 2 RESULT FIELD 
Aisauee GEBKLM4S K Before MOVE Operation 5 67 8 4 Maraeaaene 
P GEBKLM4 SK _ After MOVE Operation LM4SK P 
Aishanumens GEBKLM4S8S K Before MOVE Operation +5 6 7 8 4 anne 
P GEBKLM4S K — After MOVE Operation -3 4 422 
Numeric 9 8 765 4 3 Before MOVE Operation +5 6 789 Niciede 
-9 617 6 5 4 1 % After MOVE Operation -7 6 5 4 3 $(0 
Nasa 9 8 7 6 5 4 3 Before MOVE Operation ABCDE Aahenumene 
98765 43 After MOVE Operation 7654L P 
FACTOR 2 AND RESULT FIELD SAME LENGTH. 
FACTOR 2 RESULT FIELD 
Riana ets AB4S K Before MOVE Operation 56789 Mohanumede 
P AB4SK After MOVE Operation AB4S K P 
Athenee AB4S K Before MOVE Operation +5 6 7 8 9 Wiens 
P AB4SK After MOVE Operation i py 
Named -9 8 7 6 5 Before MOVE Operation tL 2-3 AO Wineries 
ae 98765 After MOVE Operation 98765 
N -§ 765 4 Before MOVE Operation ABS DE re ere 
a -8 7 65 4 After MOVE Operation 8 7 65 M P 
LETTER K = MINUS 2 LETTER L = MINUS 3 LETTER M = MINUS 4 


Factor 2 
Length 


Type 


Numeric 
Numeric 
Numeric 


Numeric 
Numeric 
Numeric 


Alphanumeric 
Alphanumeric 
Alphanumeric 


Alphanumeric 
Alphanumeric 
Alphanumeric 


Equal 
Shorter 
Longer 


Equal 
Shorter 
Longer 


Equal 
Shorter 
Longer 


Table 9-5. 


Type 


Numeric 
Numeric 
Numeric 


Alphanumeric 
Alphanumeric 
Alphanumeric 


Numeric 
Numeric 
Numeric 


Alphanumeric 
Alphanumeric 
Alphanumeric 


Result Field 


MOVEL Operations 


Characters 
Length Transferred 
Equal 

Longer 

Shorter 


Equal 
Longer 
Shorter 


Equal 
Longer 
Shorter 


Sign 
Transferred 


sign position 
transfer 
Sign position 


rightmost zone 
rightmost zone 
transfer 


Sign position 
transfer 
sign position 


rightmost zone 
rightmost zone 
transfer 


MOVEA 


The MOVEA (MOVE ARRAY) operation moves the data from the left-most 
position of the field specified in FACTOR 2 to the leftmost position 
of the field specified in the RESULT FIELD. When the end of either 
FACTOR 2 or the RESULT FIELD is reached, data transfer is terminated. 
When the RESULT FIELD is longer than FACTOR 2, the remainder of the 
data in the RESULT FIELD remains unchanged. The data contained in 
FACTOR 2 is never changed. 


The MOVEA operation code may be used with either vector type, tables, 
or arrays. 


It is possible to move the following with MOVEA: 
a. Adjacent array elements into a field. 
b. A field into adjacent array elements. 


c. Adjacent elements in one array into the corresponding ele- 
ments of another array. 


d. The array in either FACTOR 2 and/or the RESULT FIELD can be 
indexed. The index can be either absolute or variable. 


1. For moves from FACTOR 2, the data transfer begins at the 
element indicated by the value of the index. 


2. For moves to the RESULT FIELD, the data reception begins 
at the element indicated by the value of the index. 


e. A literal to a field. 
f. A literal to an array. 


g. A literal to an array element. 


h. A table name or element when referenced by FACTOR 2 or the 
RESULT FIELD. 


i. An array can be moved to itself by referencing the same 
array in both the RESULT FIELD and FACTOR 2. 


Requirements for MOVEA Operation 
The following requirements must be observed for the MOVEA operation: 


a. The data format of both FACTOR 2 and the RESULT FIELD must 
be alphanumeric. 


b. The operation code, FACTOR 2, and the RESULT FIELD must con- 
tain entries. 


ec. Control levels and conditioning indicators (columns 7-17) 
may contain valid entries. The remaining portion of the 
specification line must be left blank. 


Restrictions for MOVEA Operations 


The following restrictions must be observed when using the MOVEA 
operation: 


a. FACTOR 2 or the RESULT FIELD cannot reference numeric data. 
b. The RESULT FIELD cannot contain a literal. 

Coding Examples for MOVEA Operation 

The six figures (figures 9-6a-f) on the following pases show the use 


of the MOVEA operation and the contents of FACTOR 2 and RESULT FIELD 
before and after execution of the MOVEA. 
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Figure 9-6a. Field to Array MOVE - No Indexing 


FIELD1 is an eight-character alphanumeric field. 


ARRAY is an alphanumeric array containing four elements of three 
characters each. 
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Figure 9-6b. Array to Field MOVE - Array Indexed by Literal 


ARRAY is an alphanumeric array containing four elements of three 
characters each. 


FIELD1 is an eight-character alphanumeric field. \ 
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Figure 9-6c. Array to Array MOVE —- No Indexing 


ARRAY2 and ARRAY have different numbers of elements, but all elements 
are of the same length. 
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Figure 9-6d. Array to Array MOVE —- FACTOR 2 Indexed 


G12049 


FACTOR 2 is indexed by a variable (N) whose value is 4. 


ARR2 and ARRAY have elements of different lengths. 


Burroughs B 1700 RPG 


PROGRAM tO 
PROGRAMMER 
9 
an 2 CALCULATION SPECIFICATIONS saateai 2 2 
pace | | | HALF ADJUST IDENTIFICATION BEgice 
FORM TYPE CONTROL LEVEL DECIMAL POSITIONS 


wo NOT 
~ NOT 


{ndicators 
INDICATORS 
ation 
ae 
LINE AND FACTOR 1 OPERATION FACTOR 2 High Low {Equal COMMENTS 
a>2]1<2 11 = 2 
P toon 
: FrapieiFactor2] 
: High fLow re 
7 8 ] 27128 32433 3 5} 54 55456 5775 


LTTE LTTE Mowe LITT Wakes al HLL 


ARR2 ARR3 


| 01 | 02 | 03 | 04 | 05 | BEFORE MOVEA ABjICDjJEFI{GHHI!I J 
| or | 02 | 03 | 04 | os | AFTER MOVEA laslcolo1 lo 2{o 3] 


G12050 
Figure 9-6e. Array to Array MOVE ~ RESULT FIELD Indexed 
RESULT FIELD is indexed by a literal. 
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Figure 9-6f. Array to Array MOVE — No Indexing 


ARR2 and ARRAY have elements of different lengths. 


& %*% 


MOVE ZONE OPERATIONS 


Move zone operations are used to move the zone portion of only one character. 
FACTOR 2 is not affected by this operation, and only the zone portion of one 
character of the RESULT FIELD is affected. FACTOR 1 must be left blank. 

HALF ADJUST and resulting indicators must not be specified. 


An array name may be entered in FACTOR 2, as long as the RESULT FIELD also 
Specifies an array. In this case, the designated move zone operation will be 
performed on each element of the array designated in FACTOR 2, with the re- 
sult being placed in the corresponding elements of the array designated in 
the RESULT FIELD. The operation is terminated when the end of the shorter 
array is reached. 


If the RESULT FIELD is an array, but FACTOR 2 is not, the zone from FACTOR 2 
is moved into the appropriate position in all elements of the array. 


For the purpose of move zone operations, the low-order zone portion 
of a variable is defined as: 


a. The algebraic sign if the variable is numeric, or 
b. The low-order zone if the variable is alphanumeric. 


A high-order zone must only refer to alphanumeric field. For a nu- 
meric field, only the sign can be referenced. 


The systems standard positive sign is forced into all positive nu- 
meric fields that are the result of a move zone operation. When the 
zone portion of a positive numeric field is moved to the zone portion 
of an alphanumeric field by a move zone operation, the sign byte of 
the result field contains alphanumeric O-9. When the zone of a nega- 
tive numeric field is moved to the zone of an alphanumeric field by 

a move zone operation, the sign of the result field contains the sys- 
tems standard negative sign (D). 


Move zone operations are shown in table 9-6. 


Table 9-6. Move Zone Operations 


THe £4 Contents 
Bee RESULT Definition 
of FIELD 


FACTOR 2 


Alpha Alpha Move high-order zone portion 
of FACTOR 2 to high-order zone 


of RESULT FIELD 


Alpha Alpha Move high-order zone portion 
of FACTOR 2 to low-order zone 


of RESULT FIELD. 


Numeric 


Alpha Move high-order zone portion 
of FACTOR 2 to the sign posi- 


tion of RESULT FIELD. 


Alpha Alpha Move low-order zone portion of 
FACTOR 2 to high-order zone of 


RESULT FIELD. 


Numeric Alpha Move Sign position of FACTOR 2 
to high-order zone portion of 


RESULT FIELD. 


Move low-order zone of FACTOR 
2 to low-order zone of RESULT 
FIELD. 


Alpha 


Numeric 


Move low-order zone portion of 
FACTOR 2 to sign position of 
RESULT FIELD. 


Numeric 


Move Sign position of FACTOR 2 
to low-order zone portion of 
RESULT FIELD. 


Numeric Numeric 


Move sign position of FACTOR 2 
to sign position of RESULT FIELD. 


=e, 


kach of the move zone operations is discussed in the following paragraphs. 


MHHZO This operation moves the zone from the high-order (leftmost) position 
of FACTOR 2 to the high-order (leftmost) position of the RESULT FIELD. 
Both FACTOR 2 and RESULT FIELD must be alphanumeric (see figure 9-7). 
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Figure 9-7. MHHZO Move Zone Operation 


MHLZO If FACTOR 2 is alphanumeric and the RESULT FIELD is alphanumeric, 
this operation moves the zone from the high-order (leftmost) position 
of FACTOR 2 to the low-order (rightmost) position of the RESULT FIELD. 
If FACTOR 2 is alphanumeric and the RESULT FIELD is numeric, this 
operation moves the high-order (leftmost) position of FACTOR 2 to the 
Sign position of the RESULT FIELD. FACTOR 2 must be alphanumeric 
(see figure 9-8). 
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Figure 9-8. MHLZO Move Zone Operations 


MLHZO If FACTOR 2 is alphanumeric and the RESULT FIELD is alphanumeric, this 
operation moves the zone from the low-order (rightmost) position of 
FACTOR 2 to the high-order (leftmost) position of the RESULT FIELD. 
If FACTOR 2 is numeric and the RESULT FIELD is alphanumeric, this 
operation moves the zone from the sign position of FACTOR 2 to the 
high-order (leftmost) position of the RESULT FIELD. The RESULT FIELD 
must be alphanumeric (see figure 9-9). 
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Figure 9-9. MLHZO Move Zone Operations 


MLLZO If FACTOR 2 is alphanumeric and the RESULT FIELD is alphanumeric, 
this operation moves the zone from the low-order (rightmost) position 
of FACTOR 2 to the low-order (rightmost) position of the RESULT FIELD. 


If FACTOR 2 is alphanumeric and the RESULT FIELD is numeric, this 
operation moves the zone from the low-order (rightmost) position of 
FACTOR 2 to the sign position of the RESULT FIELD. 


If FACTOR 2 is numeric and the RESULT FIELD is alphanumeric, this 
operation moves the zone from the sign position of FACTOR 2 to the 
low-order (rightmost) position of the RESULT FIELD. 

If FACTOR 2 is numeric and the RESULT FIELD is numeric, this operation 


moves the zone from the sign position of FACTOR 2 to the sign position 
of the RESULT FIELD (see figure 9-10). 
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Figure 9-10. MLLZO Move Zone Operations 


COMPARE OPERATIONS 


These operations are used to test specified fields for certain conditions. 
The results of these operations are shown by the setting of the specified 
RESULTING INDICATOR (01-99, L1-L9, LR, HO-H9, OA-OG, OV). FACTOR 1 and 
FACTOR 2 are not affected by the operation. At least one RESULTING INDICA- 
TOR must be specified. The RESULT FIELD must be blank. HALF ADJUST must not 
be specified. Neither FACTOR 1 or FACTOR 2 may be a whole array. 


COMP This operation compares FACTOR 1 with FACTOR 2, causing the 
RESULTING INDICATORS to be set as follows: 


ae HIGH (columns 547-55) - FACTOR 1 > FACTOR 2 

b. LOW (columns 56757) - FACTOR 1 < FACTOR 2 

c. EQUAL (columns 58-59) - FACTOR 1 = FACTOR 2 
Both fields must be of the same data type. 
Comparison of Numeric Fields 


The comparison of numeric fields is based on their respective values 
considered purely as signed numeric quantities. The length of the 
fields, in terms of digits, is not itself significant. Both fields 
are automatically aligned on their decimal points, and leading or 
trailing zeros are supplied, as needed, to make the lengths identical. 


Comparison of Alphanumeric Fields 


The comparison of alphanumeric fields is accomplished by placing 
FACTOR 1 and FACTOR 2 left-justified in work areas of equal length, 
and padding the rightmost positions of the shorter field with blanks. 
A character-to-character comparison is then made beginning at the 
leftmost position of each field. Moving to the right, the comparison 
continues until: 


a. An unequal condition is found between corresponding 
characters, or 


b. The end of the fields is reached. 


When the unequal condition is found, if the character that is highest 
in the collating sequence is in FACTOR 1, the high (1>2) indicator is 
turned ON, if specified. If the character that is highest in the 
collating sequence is in FACTOR 2, the low (1<2) indicator is turned 
ON, if specified. Otherwise, the equal (1=2) indicator is turned ON, 
if specified. 


When the end of the fields is reached, a condition of equal is 
indicated. 


TESTN The test numeric operation tests the contents of the alphanumeric 
field, indexed vector name, or unindexed table name specified in the 
RESULT FIELD (columns 43-48) for numeric characters or blanks. A 
whole array can not be specified. If all characters in the alphanu- 
meric field specified are numeric, the indicator specified in columns 


94-55 (high) is set ON. Each character in the field must be unsigned, 
with the exception of the low-order character, which must contain: 


a. The systems standard positive or negative Sign, or 
b. Be unsigned, or 


c. Contain a valid plus or minus character to be considered 
numeric. 


If the alphanumeric field specified contains numeric characters and 
leading blanks, the indicator specified in columns 56-57 (low) is set 
ON. The indicator specified in columns 58-59 (equal) is set on ON if 
the field contains all blanks. The Same indicator can be specified for 
more than one condition and is set if the condition exists. 


The TESTN operation determines the sign of the low-order (right~most) 
character within an alphanumeric field as follows: 


Character Character 
Sign Being Tested 


Plus A thru I, 
+0, + 


J thru R, 
201, 


Minus 


Unsigned O thru 9 


The TESTN operation determines the character status of the other charac- 
ters within an alphanumeric field, with the exception of the low-order 


character, as follows: 
Character Character 
Status Being Tested 
O thru 9 


Numeric 


All other 
characters 


Non-numeric 


NOTE 


The TESTN operation applies to alphanumeric 
fields only. If an arithmetic operation is 
to be performed, then this field must be 
moved to a numeric field. 


Table 9-7 lists the various results of the TESTN operation for a 4-byte 
alphanumeric field. A "b" indicates a blank character. 


a 


EE 


TESTZ 


Table 9-7. Results of the TESTN Operation Code 


Indicator Results 
Columns Columns Columns 
54-55 56-57 58-59 


OFF 


Contents of 
Alphanumeric 
Field 


OFF 
OFF 
OFF 


ON 


This operation tests the ZONE portion of the leftmost character of the 
RESULT FIELD, setting the specified RESULTING INDICATOR (01-99, L1-L9, 
LR, HO-H9, OA-OG, OV) to the results of the test. FACTOR 1 and FAC- 
TOR 2 must be blank. HALF ADJUST must not be specified. The RESULT 
FIELD must not be a whole array. 


If the RESULT FIELD is alphanumeric, the character under test will set 
a specific RESULT INDICATOR according to the following: 


Character Under Test RESULTING INDICATOR Set 
A-I, & PLUS (columns 54-55) 
J-R, - MINUS (columns 56-57) 
All Others ZERO (columns 58-59) 


If the RESULT FIELD is numeric, the PLUS (columns 54-55) or MINUS 
(columns 56-57) indicator will be set according to the sign of the 
field. A ZERO indicator must not be specified for a numeric field. 
Note that TESTZ is essentially a zone portion test and will differen- 
tiate between +O and -O. If the programmer wishes to test for greater 
than, less than, or equal to zero, he should use a compare (COMP op- 
code) against zero, instead of TESTZ. 


9-32A 


BINARY FIELD OPERATIONS 


Three operation codes, BITON, BITOF, and TESTB, are provided to set and test 
individual bits. The individual bits can be used as switches in a program. 


In binary field operations the operation codes BITON, BITOF, or TESTB are used. 
FACTOR 2 may contain either of the following: 


a. 


BITON 


Bit values 0-7. One or more bits (maximum of eight) may be set ON, 
set OFF, or tested per operation. The bits are numbered from left 

to right and are enclosed in apostrophes. The order of specification 
of the bits is not restricted. Bits not specified in FACTOR 2 are 
not changed. 


The name of a one-position, alphanumeric field or table, or array 
element. In this case, the bits which are on in the field or array 
or table element are set ON, set OFF, or tested in the RESULT FIELD; 
bits which are not ON are not affected. 


This operation code causes bits identified in FACTOR 2 to turn ON 
(set to one) in a previously defined field named as the RESULT FIELD. 
The operation code BITON must appear in columns 28-32. Conditioning 
indicators can be used in columns 7-17. Any entry under FIELD LENGTH 
must be l. 


FACTOR 1, DECIMAL POSITIONS, HALF ADJUST, and RESULTING INDICATORS 
are not used with the BITON operation (see figure 9-11). 
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Figure 9-11. Binary Field Operations Coding Examples 


BITOF This operation code causes bits identified in FACTOR 2 to turn OFF 
(set to zero) ina previously defined field named as the RESULT FIELD. 


The operation code BITOF must appear in columns 28-32. All other 
specifications are the same as those for the BITON operation (see 
figure 9-11). 


TESTB This operation code causes bits identified in FACTOR 2 to be tested 
for an ON or OFF condition in the previously defined field named as a 
RESULT FIELD, setting the specified RESULTING INDICATOR to the result 
of the test. All other specifications are the same as those for BITON 
and BITOF. — 


At least one RESULTING INDICATOR must be used with the TESTB opera~ 
tion; aS many as three can be named for one operation. Two indicators 
may be the same for one TESTB operation, but not three. If FACTOR 2 
contains bits which are all OFF, no RESULTING INDICATORS are turned 
ON. RESULTING INDICATORS have the meanings described in the follow~ 
ing paragraphs. 


Columns 54-55 


An indicator in these columns is turned ON if each bit specified in 
FACTOR 2 is OFF (0) in the Result Field. 


Columns 56757 


An indicator in these columns is turned ON if two or more bits were 
tested and found to be of mixed status: that is, some bits ON and other 
bits OFF. It is important to ensure that the field named in FACTOR 2 
contains more than one bit which is ON if an indicator appears in 
columns 56757. 


Columns 58-59 


An indicator in these columns is turned ON if each bit specified in 
FACTOR 2 is ON (1) in the Result Field. 


The following explanations refer to figure 9-ll. 
ae Bits 1234 are turned ON in the field named BITA. 


b. Bits that are ON in the field named ITEMA will cause the 
corresponding bits in the field named BITB to be turned ON. 


ce Bits that are OFF in the field named ITEMB will cause the 
corresponding bits in the array element ARR,XY to be turned 
OFF. Then bits 1, 2, 3 will be turned off in array element 
ARR,XY, and finally the bits that are off in ARR,XY will be 
turned off in the array element TBL,20. 


d. If bits 0, 5, and 7 are OFF in the field named BITC, indicator 
10 will be turned ON. If bits 0, 5 and 7 are of mixed status 
in the field named BITC, indicator 12 will be turned ON. If 
bits 0, 5, and 7 are ON in the field named BITC, indicator 12 
will be turned ON. 


mS 


SETTING INDICATORS 


Up to three indicators may be set ON or OFF with one operation. These may be 
entered in the RESULTING INDICATORS field. FACTOR 1, FACTOR 2, HALF ADJUST, 
and the RESULT FIELD must be left blank. The following rules must be observed 
when setting indicators: 


a. The following indicators may not be set ON or OFF: I1P, MR, LO, or 
U1-U8. 


b. Setting a control level indicator (L1-L9) ON or OFF does not affect 
any other control level indicator. 


ec. All control level and record identifying indicators, except LO are 
automatically turned OFF after detail output operations are completed, 
regardless of any previous SETON or SETOF operations. 


d. If any halt indicators (HO-H9) are set ON and are not turned OFF 
before the detail output operations finish, the program will halt. 


e. If the LR indicator is turned ON by a SETON operation which is 
conditioned by a control level indicator (columns 77-8 on Calculations 
Specifications form), the program will stop after all total output 
operations are completed. If the LR indicator is turned ON by a 
SETON operation which is not conditioned by a control level indi- 
cator, the program stops after the next total output operation is 
completed. 


SETON This operation sets the indicators entered in the RESULTING INDICATORS 
field ON. 


SETOF This operation sets the indicators entered in the RESULTING INDICATORS 
field OFF. 


PROGRAM BRANCHING OPERATIONS 


Operations within the Calculation Specifications are normally performed in 
the order in which they are written. Branching operations allow variation 
of the order of operation; thus, conditional branching and repetitive opera- 
tions are possible. 


GOTO This operation causes the program to branch (GOTO) to some other in- 
struction rather than "falling through" to the next sequential opera- 
tion. Branching both forward and backward is allowed. Branching in- 
to or out of subroutines is not permitted. Branching from total cal- 
culations to detail calculations, though permitted in RPG I, may 
produce unexpected results when used in RPG II. 


FACTOR 2 must contain a label (which must be defined elsewhere in the 
program as a TAG) which must follow the rules for formation of labels 
as described in Section 2. Columns 18°27 and 39-59 must be blank. 


TAG This operation is used to identify the point where a GOTO operation 
will branch. FACTOR 1 must contain a unique label (TAG) which must 
follow the rules for formation of labels as described in Section 2. 


Conditioning by a control level indicator in columns 77-8 is permissible 
if the TAG is part of TOTAL CALCULATIONS. The INDICATOR field 

(columns 9-17) must be left blank. Columns 337-59 and 24-27 must be 
blank. 


TRANSFER CONTROL FUNCTION 


This operation causes the MCP to execute a control instruction within the 
operating RPG object program. The MCP control instructions which may be 


specified are system dependent. Refer to the B 1700 System Software Opera~ 
tional Guide, Form No. 1068731. 


ZIP The operation code ZIP causes the MCP to execute the control instrucm 
tion contained in FACTOR 2. FACTOR 2 may be a field name or vector 
name, previously defined, or a meaningful alphanumeric literal enclosed 
in apostrophes. The operation may be conditioned by the conditioning 
indicator. All other fields must be left blank. The information con- 
tained in FACTOR 2 must be a valid MCP Control Statement. The con- 
tents of FACTOR 2 must not exceed a maximum of 511 alpha characters. 


ZIP may be used for programmatic scheduling of object programs con 
tained in the Disk Directory, or ZIP may be used to accomplish any of 
the MCP control functions performed through the console printer (SPO) 
or card reader. 


In the example shown in figure 9-12, the field DATA contains the 
alphanumeric information, "EX JOB10". EX JOB10 is a control instruc” 
tion. When the priority for JOB10O is recognized once memory space bem 
comes available, the MCP will retrieve JOB10 from the Disk Directory 
and place it in the MIX for subsequent operation. 


The program containing the ZIP operation will proceed to the next sen 
quential instruction following the ZIP operation, without waiting for 
the execution of the program JOBIO. 
The example of a literal in FACTOR 2, shown in figure 9-13, will 
cause the same action. 
LOOKUP OPERATIONS 
LOKUP 
This operation code is used to search a table or array for a particular data 
item. The table or array name is entered in FACTOR 2. The search word is 
entered in FACTOR 1. 
Search Word 
The search word, sometimes called the search argument, is the data item for 
which the program tries to find a match in the table or array named in 
FACTOR 2. 
The Search Word in FACTOR 1 may be: 


a. An alphameric or numeric literal. 


ae 
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Figure 9-13. The ZIP Operation Using a Literal 


b. A field name. 
c. A table name. 
A table element. 

d. An array element. 
When FACTOR 1 references a table name, it refers to the element in the table 
that was last selected in a previous LOKUP operation. It does not refer to 
the whole table. 
When FACTOR 1 references a table element, it refers to the actual table ele- 


ment and not necessarily to the element in the table that was last selected in 
a previous LOKUP operation. 


Resulting Indicators 
Resulting indicators must be used with the LOKUP operation code. Those result- 


ing indicators are used to specify the type of search to be performed. For 
example: 


a. When an indicator is assigned to EQUAL (columns 58-5@), the table or 
array is searched for an item equal to the search word. 


b. When an indicator is assigned to HIGH (columns 54-55), the table or 
array is searched for an item that is nearest to, yet higher in 
sequence than, the search word. When the search is successful the 
indicator is turned ON. 

c. When an indicator is assigned to LOW (columns 56-57), the table or 
array is searched for an item that is nearest to, yet lower in 
sequence than, the search word. When the search is successful the 
indicator is turned ON. 

Indicator Assignment 
At least one resulting indicator must be assigned, and up to two resulting in- 
dicators may be specified if desired. However, when two resulting indicators 
are specified, one of them must be assigned to EQUAL. Resulting indicators 
may be assigned as follows: 
EQUAL 
EQUAL, HIGH 
EQUAL, LOW 
HIGH 
LOW 
A LOKUP operation code causes a syntax error when: 
a. No resulting indicator is specified. 
b. Indicators are assigned to both HIGH and LOW. 
Rules for LOKUP 


a. At least one resulting indicator must be assigned. 


b. The search word and the data items in the table or array must be of 
the same data type (alpha or numeric), and of the same length. 


c. Decimal points are ignored for numeric data. 
d. A table or array should be searched for HIGH, LOW, HIGH EQUAL or 
LOW EQUAL only if it is specified as ordered on the Extension Speci- 


fications. 


e. When multiple indicators are assigned, one of them must be assigned 
to EQUAL, with EQUAL taking precedence. 


For example: Search for HIGH or EQUAL, the EQUAL condition takes 
precedence. 


Ore LOKUPARY , X > 


The array contains: 123456 7 


Indicator 21 will turn on and X points 
to element 5, containing "5". 


f. Resulting indicators are turned ON only when the search is success- 
ful, and likewise, are turned OFF for an unsuccessful search. 


g. When a LOKUP operation is performed on a table or array, the search 
starts with: 


1. The first element of the table or array when FACTOR 2 con- 
tains an unsubscripted table or array name. 


2: The element reference when FACTOR 2 contains a subscripted 
table or array name. 


h. <A subscripted table name cannot be specified in the result field 
for a LOKUP operation. 


i. An array name can not be specified in the result field for a LOKUP 
operation. 


j. Short tables or arrays should only be searched for an EQUAL condition 
because the compiler-supplied "filler" may cause the LOKUP to produce 
unexpected results. 


k. Any search for other than an EQUAL condition (LOW or HIGH, or LOW 
and EQUAL, or HIGH and EQUAL) is allowed only if the vector was 
specified as having ascending or descending sequence on the Exten- 
Sion Specifications. The search algorithm assumes that the vector 
is in the specified sequence; if the user allows the vector to get 
out of sequence, the results may be unpredictable or not what the 
user anticipated. 


Single Table LOKUP 


When the LOKUP operation code is used to search for an item in a single table, 
entries must be made in FACTOR 1 (search word). FACTOR 2 (table to be 
searched), and at least one resulting indicator must be assigned to designate 
the type of search. In addition, control level and conditioning indicators 
may be used. 


When a table item is found that satisfies the type of search specified (HIGH, 
LOW, EQUAL), a copy of that data item is placed in a special hold field, and 
the appropriate resulting indicator is turned ON. With each successful 
search, the contents of the table element is placed in the special hold field, 
thereby destroying the data that was previously there. When the search is un- 
successful, the contents of this field are left unchanged. 


Two Table LOKUP 


When the LOKUP operation code is used with two related tables, only one table 
is actually searched. Entries must be made in FACTOR 1 (search word), FACTOR 
2 (table to be searched), the result field which must contain the name of the 
related table from which data will be made available, and at least one 


resulting indicator must be assigned to designate the type of search. In 
addition, control level and conditioning indicators may be used. 


When using LOKUP with related tables, the two tables should be capable of 
holding an equal number of entries. Whenever the searched table (FACTOR 2) 
is longer than the related table (Result field), the search is terminated 
when the end of the shorter table is reached. 


Referencing Unsubscripted Table Entries 


When a unsubscripted table name is used in any operation except LOKUP, the 
table name refers to the data item that was placed in the special hold field 
by the last successful LOKUP. This allows a program to use table items when 
performing calculations. 


When an unsubscripted table name is used as the result field in operations 
other than a LOKUP, the data item that was placed in the special hold field 
is changed by the calculation operation. In addition, the actual corres- 
ponding table item in the table is also changed. This is one way that the 
contents of a table can be changed during program execution. 


When an unsubscripted table name is used as the search word (FACTOR 1) of a 
LOKUP operation, the contents of the special hold field is used. This allows 
a program to use the result of the last successful search as the search word 
or argument for other LOKUP operations. 


When an unsubscripted table name is used in an operation prior to a success- 
ful LOKUP, the contents of the special hold field is the first data item in 
the table. 


Referencing Subscripted Table Entries 


When a subscripted table name is uSed in any operation, the data item 
referenced is the actual entry in the table. The contents of the special 
hold area are not affected in any way. 


LOKUP With An Array 


The LOKUP specifications for an array are the same as those specified for a 
table, except that when an array is specified in a two-vector LOKUP, the 
array name must appear in FACTOR 2, and only an unsubscripted table name can 
be used in the result field. 


The following items pertain to array handling: 


a. Arrays do not have special hold fields; therefore, when a search is 
successful, the indicators only reflect that the data item is in the 
array. The data item is not immediately available to the program. 


b. When referencing an array, if only the array name is used (no sub- 
script), the search begins with the first element in the array. 


c. When referencing an array and a subscripted array name is used, the 
search begins at the element specified by the subscript. The sub- 
script may be a numeric field name or a literal. When a search is 
successful, the appropriate indicator will turn ON. The type of 
subscript used will have the following effect: 


a. When the subscript is a literal, a successful LOKUP opera- 
tion will only verify that the data item is in the array. 
The actual data item or its location within the array will 
not be available to the program. 


b. When the subscript references a numeric field name, a suc-— 
cessful LOKUP operation will verify that the data item is 
in the array. In addition, the element number of the array 
in which the data item is contained will be automatically 
placed in the field that originally contained the beginning 
subscript. The data can now be made available to the pro- 
gram by again referencing the array using the same subscript 
field. 


When the LOKUP operation is unsuccessful, the results are as follows: 
a. For an unsubscripted array all indicators are reset. 


b. For an array subscripted with a literal all indicators are reset. 
The literal is not affected. 


c. For an array subscripted by a numeric field name, all indicators are 
reset, and the value of the subscript is set to l. 


The algorithm used for the LOKUP operation code is shown in table 9-8. The 
array or table type references the A or D entries in columns 45 and/or 57 of 
the Extension Specifications. These entries determine the Sequence of the 
data items, which is either ascending (A) or descending (D). A LOKUP opera- 
tion for any search relation other than EQUAL requires that the table or ar- 
ray must be in either ascending or descending sequence. 


The LOKUP search relation references the entries made in columns 54 through 


o9 of the Calculation Specifications. The entries made in these columns 
specify the type of search to be performed. 


LOKUP 
search Relation Definition 


LSS Less than 


Less than or equal to 
Equal 
Greater than or equal to 


Greater than 


The algorithm references the type of search actually performed by the inter- 
preter for each type of LOKUP operation. 


Example: 


An ascending table is to be searched for an item that is less than (LSS) a 
particular value. The table is searched for the first item that is equal to 


(EQL) or greater than (GTR) the particular value. If the search is success- 
ful, the interpreter then references the table item immediately preceding the 
found item. 

When a table or array is not specified as being in sequence, the only LOKUP 
operation that is permitted is a search for EQUAL. Each element in the table 
is compared with the data item specified for an EQUAL comparison. 


Table 9-8 follows: 


Table 9-8. LOKUP Algorithm 


Array or LOKUP Algorithm of Actual Search 
Table Type Search Relation Performed by Interpreter 


Ascending LSS GTR or EQL 
Ascending LEQ GTR 
Ascending EQL EQL 
Ascending GEQ GEQ 
Ascending GTR GTR 
Descending LSS LSS 
Descending LEQ LEQ 
Descending EQL EQL 
Descending GEQ LSS 


Descending GTR LSS or EQL 


SUBROUTINES 


Subroutine operation codes are used only to delimit the beginning and end of 

a subroutine, or to call a subroutine for execution from some point in the 
program. Specification lines within a subroutine must contain the entries SR, 
OR, AN, or blank in the CONTROL LEVEL field (columns 7-8), and all subroutines 
must be the last operations specified in the Calculation Specifications. The 
recursive use of subroutines is allowed but not recommended, for example, the 
operation EXSR SUB1 within the SUB1 subroutine. Subroutines may not be nested 
in the Source Language, e.g., BEGSR cannot appear in a subroutine. Refer to 
figure 9-14. 


BEGSR This operation code is used to indicate the beginning of a subroutine. 
FACTOR 1 must contain the name of the subroutine, which must follow 
the rules for formation of labels as described in Section 2. Columns 
33-59, and 24-27 must be blank. 


ENDSR This operation code is used to indicate the end of a subroutine. 
FACTOR 1 may contain a label. This label is used like a TAG, as a 
point for a GOTO operation within the subroutine to branch, thus 
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Figure 9-14. Subroutine Coding Examples 


allowing an exit from different points within the subroutine. Columns 
33-59 and 24-27 must be blank. 


This operation causes execution of a Subroutine, and may appear any- 
where within the Calculation Specification. When execution of the 
Subroutine is completed, control returns to the next line following 
the EXSR operation. The EXSR operation can be used within a 
subroutine. 


The EXSR operation may be conditioned by an indicator, allowing the 
Subroutine to be executed (called) only when all the conditions are 
Satisfied. FACTOR 2 must contain the name of the subroutine being 
called, which must be the same name entered in FACTOR 1 of a BEGSR 
operation. FACTOR 1 and columns 39-59 must be left blank. 
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PROGRAMMED CONTROL OF INPUT AND OUTPUT 


Within the normal B 1700 RPG program cycle, a record is read, calculations are 
performed (using the data from that input record), and an output record is 
written. The CHAIN, DSPLY, EXCPT, READ, RECV, and SEND operations allow 
greater control over input and output, providing the capability to read and 
write records at times other than those normally available as part of the 

RPG program cycle. The FORCE and SETLL operations permit some programmatic 
control over the selection of records for processing. 


CHAIN The CHAIN operation provides a method of accessing a data file on 
disk in an order other than the physical sequence of the records. 


CHAIN can be specified anywhere in the Calculation Specifications in 
columns 28-33. 


When the CHAIN operation code is specified, the following require- 
ments must be satisfied: 


a. FACTOR 1 must contain a key specifier which cannot be a 
whole array. 


b. FACTOR 2 must contain the name of the file the program is 
chaining to. 


ec. An indicator should be specified in columns 54-55 to turn ON 
if the record is not found. If it is desired that the sys- 
tems operator be informed when no record is found, the field 
can be left blank. 


When the CHAIN operation code is specified, the following fields 
must be left blank: 


a. RESULT FIELD. 

b. FIELD LENGTH. 

c. HALF ADJUST. 

d. DECIMAL POSITIONS. 

e. RESULTING INDICATORS - EQUAL 


When the CHAIN operation code is specified, optional entries are 
allowed in the following fields: 


a. CONTROL LEVEL INDICATOR. 
b. CONDITIONING INDICATORS. 


When the chained file is conditioned with an external indicator, the 

CHAIN operation should be conditioned with the same external indica- 

tor. If this is not done, the CHAIN operation is automatically sup- 

pressed when the external indicator is OFF in order to avoid changing 
the status of the indicator specified in columns 54-55. 


The following paragraphs describe how the CHAIN operation functions for each 
of the applicable file types. 


Chained Indexed Files 


The field length of FACTOR 1 must be the same as the key length 
specified for the file in the File Description Specifications. Note 
that if FACTOR 1 is a literal, leading zeroes or trailing blanks may 
be required to make the field length and key length equal. The 
filename entered in FACTOR 2 must have been defined in the File Des- 
cription Specifications as a chained indexed disk file. If the file 
named in FACTOR 2 was defined in the File Description Specifications 
with P or N in column 31, then FACTOR 1 must be numeric. 


Input Files. The value of the data specified in FACTOR 1 is compared 
against the index in order to locate the data record whose key field 
contains the same value as FACTOR 1. All specified record identifying 
indicators and field indicators are set appropriately. 


If an equal condition is not found in the index, the indicator speci- 
fied in columns 54-55 is switched ON. If no indicator is specified, 
the systems operator is notified by a message on the console printer. 


Update Files. <A chained indexed update file is processed in the same 
manner as chained indexed input files, with the following exception: 
When a record is found, the record location is retained. This allows 
the record to be written back into the same location from which it 
was read without having to CHAIN again. 


Output Files. Output files are not allowed. 
Chained Direct Files 


FACTOR 1 must be numeric and FACTOR 2 must be defined in the File Des- 
cription Specifications as a chained direct file. 


Record Identification in Direct Files. When chaining to a direct 
file, if the key is equal to or greater than 1 and equal or less than 
the total number of records in the file, there will always be a 
"found" condition. Such a situation can present problems. In a file 
with a potential of more records than have actually been written, 
there are gaps in the file. For example, records one, five, and 1000 
are all that a 1000-record, direct file currently contains. Under 
these conditions, when chaining to relative record number six, a 
record found condition implies only that the key is greater than 0 
and less than or equal to the potential number of records in the file. 


To ensure that the record being read is, in fact, a record and not 
an empty location, the user must take care to design proper record 
identifying codes in the direct files. 


Input Files. The value of the data specified in FACTOR 1 must be a 

numeric (literal or field name) integer between 1 and n, where n is 

not greater than the total number of records in the file, and is the 
relative record number of the desired record. 


If the key (numeric integer) is within the bounds of the file, the 
record will be found. Refer to Record Identification in Direct Files 
in this section for additional information. If the key is beyond the 
bounds of the file, the indicator specified in columns 54-55 is turned 
ON; however, if no such indicator is specified, the operator is noti- 
fied by a message on the console printer. 


DSPLY 


Update Files. The chained direct update file is processed in the 
same manner as the chained direct input file, with the following ex- 
ception: When a record is found, the record location is retained. 
Therefore, the record can be written back into the location from 
which it was read without chaining again. 


Output Files. In order to create a direct file, it must be specified 


in the File Description Specifications as output and chained in 
columns 15-16. At program execution time, when the key (relative 
record number) is used to chain, the record location specified is 

made available for the writing of the record as defined on the Output- 
Format Specifications. Refer to Record Identification in Direct Files 
in this section for additional information. 


The highest key (relative record number) that is written when the 
file is first created determines the maximum file size. 


Chained Sequential Files 


Any disk file can be accessed as a sequentially created disk file by 
providing FACTOR 1 of the chain with relative record numbers for keys. 
To accomplish this, the disk file must also be defined on the File 
Description Specifications as a chained direct file, regardless of how 
it was originally created. However, this is an unusual procedure as 
it requires extensive knowledge of the location within the file of 
particular records. 


Input Files. Chained sequential input files are handled the same as 
chained direct input files. Refer to the subsection titled Chained 
Direct Files in this section for detailed information. 


Update Files. Chained sequential update files are handled the same 
as chained direct update files. Refer to the subsection titled 
Chained Direct Files in this section for detailed information. 


This operation causes data to be displayed on the console printer 
(SPO) or provides for certain low volume data entries to be entered 
by the systems operator through the console printer. The file name 
of the file assigned to the console printer must be entered in FACTOR 
2. The HALF ADJUST and RESULTING INDICATORS fields must be left 
blank. Control level and conditioning indicators may be assigned, 
FACTOR 1 is optional and may be used to name a data item, which may 
be a field name or a vector element, or to specify a literal (nu- 
meric or alphanumeric). The RESULT FIELD is optional and may be 
used to specify the name of a data item (field name or vector ele~ 
ment). If the RESULT FIELD is used, the systems operator must 
respond on the console printer, If both FACTOR 1 and the RESULT 
FIELD are blank, a syntax error is emitted, 


The DSPLY operates in the following manner: 


‘ae If the RESULT FIELD is blank and FACTOR 1 contains a data 
item, the data item is printed on the console printer and 
the program proceeds to the next operation. (See figure 
9-18, line 2.) 


b. If the RESULT FIELD contains a data item and FACTOR 1 is 
blank or contains a data item, the data is printed on the 
console printer and an ACCEPT message will be generated by 


EXCPT 


FORCE 


the MCP, to which the systems operator must respond. The 
contents of the response will be placed in the field speci- 
fied in the RESULT FIELD. For the format of the ACCEPT mes- 
sage, refer to the B 1800/B 1700 System Software Operational 
Guide, Form No. 1068731. (See figure 9-15, line 5.) 


ec. If both the RESULT FIELD and FACTOR 1 contain data items, 
the data from both is printed on the console printer and an 
ACCEPT message is generated by the MCP, to which the systems 
operator must respond. The contents of the response are 
placed in the field specified in the RESULT FIELD. (Refer 
to figure 9-15, line 8). 


dad. Display output is crunched by the MCP. 
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Figure 9-15. DSPLY Operation Coding Examples 


This operation allows EXCEPTION records to be written during calcula- 
tions. Every time the EXCPT operation is executed, all lines in the 
Output-Format Specifications with a TYPE entry (column 15) of E will 
be written, dependent on conditioning indicators. If this operation 
is specified, Exception Time Output Specifications are required. The 
EXCPT operation may have CONTROL LEVEL and conditioning INDICATORS 
assigned; all other fields must be left blank. 


This operation enables selection of the file from which the next 
record is to be taken for processing. This specification overrides 
the normal record selection process that occurs during input. The 
FORCE operation does not actually read any records during 
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READ 


calculations, but only selects the file which will supply the next 
record for processing. 


The force operation enables programmatic selection of the file from 
which the next record is to be taken for processing, and overrides 
the normal record selection process that occurs during input. The 
FORCE operation only selects the file which is to supply the next 
record for processing, and does not actually read any records during 
calculations. 


The FORCE operation applies only to input, update, or combined files 
designated as PRIMARY or SECONDARY files. FACTOR 2 must contain the 
name of the file to be forced; all other fields (except conditioning 
INDICATORS) must be left blank. This operation must not occur within 
total calculations or in subroutines. 


The MR indicator is always off while a forced record is being pro- 
cessed, and the forced record is treated as if it had no match fields 
specified. 


The programmer should exercise care when specifying more than one 
FORCE operation during the same program cycle. If more than one 

FORCE is conditioned to occur, only the last one affects record selec- 
tion, and all of the others are ignored. If the forced file is at 
end-of-file, normal record selection determines the next record to be 
selected for processing. 


This operation is used to cause a record to be read from a demand 
file during calculations. This differs from the FORCE operation be~ 
cause FORCE causes input during the next program cycle, whereas the 
READ operation causes input during the current program cycle. It 
also differs from the CHAIN operation, because CHAIN is used to read 
records randomly, whereas the READ operation is used to read records 
sequentially. 


FACTOR 2 must contain the name of the file to be read. The FACTOR l, 
RESULT FIELD, FIELD LENGTH, DECIMAL POSITIONS, and HALF ADJUST fields 
must be left blank. The READ operation may be conditioned by CONTROL 
LEVEL or conditioning INDICATORS in columns 7717. 


Whenever the READ operation is specified, an indicator should be 
specified in columns 58-59 of the Calculation Specifications. The 
indicator is turned ON when an end-of-file condition occurs for the 
indexed file. Any subsequent attempt to read from the same file 
causes the indicator to be turned ON. When no indicator is used and 
an end-of-file condition occurs, the program automatically displays 
an REOF message on the console printer. The systems operator can 
then enter either STOP or GO on the console printer. If STOP is 
entered, the program terminates as if LR had occurred. If GO is 
entered, the program continues. 


It is good programming policy to always use an indicator in columns 
98-59 with the READ operation code. 


The following rules must be observed when using the READ operation: 


RECV 


ae Only demand files designated as INPUT, UPDATE, or COMBINED 
may be read by the READ operation. 


b. Sequence-checking in the Input Specifications is not allowed 
for demand files. 


c. Control levels, matching fields, and look-ahead fields are 
not allowed for demand files. 


d. If a demand file is conditioned by an external indicator 
(U1-U8) which is not set, the READ operation will, be ignored 
(the End-of-File indicator in columns 58-59 will not turn 
ON). 


e. When READ operations are performed on demand files for which 
sequential within limits processing has been specified, the 
entire file can be read as many times as desired even though 


end-of-file has been reached. Refer to the subsection titled 
Sequential Within Limits in Section 4 for additional informa- 


tion about that type of file processing. 


This operation is used to read messages from REMOTE data communication 


files during calculations. Only files specified as REMOTE and desig- 
nated as demand in the File Description Specifications can be access- 
ed with the RECV operation. 


The RECV operation is similar to READ but permits the user to Specify 
indicators in columns 54-59 to cause the following to be reported to 
the RPG program: 


a. Exception conditions. 
b. Incomplete I/O operations. 
ec. End-of-file condition. 
FACTOR 2 must contain the name of the REMOTE file to be read. The 


FACTOR 1, RESULT FIELD, FIELD LENGTH, DECIMAL POSITIONS, and HALF 
ADJUST fields must be left blank. 


Indicators can be specified in columns 54-59 and are described as 
follows: 


Columns 54-55 


An indicator can be specified in columns 54-55 to cause exception 
conditions to be reported. The indicator is turned on only when the 
following conditions are satisfied: 


a. The established number of retries per read operation is at- 
tempted by the network controller without success, and 


b. The TERMINATE ERROR statement is included in the NDL network 
controller and is invoked during the attempted RECV 
operation. 


NOTE 


When a TERMINATE ERROR condition occurs, 
the incoming message to the RPG program 
is not processed. 


When a specified indicator in columns 54-55 is turned on, there are 
several possibilities that can be programmed by the user. Some of 
these possibilities are: 


a. Re-issue a RECV operation for the same terminal. 
b. Make an entry in a log file. 


ec. Display a message on the console printer to notify the 
B 1700 operator. 


d. Stop attempting to read from a terminal if repeated errors 
occur, or go to end-of-job. 


If no indicator is specified in columns 54-55 and a TERMINATE ERROR 
condition occurs, the message is not processed and the RPG program is 
not informed of the error unless the program has previously cleared 
the record identifying indicators. 


Columns 56-57 


This field can be used to specify the type of read discipline desired 
for a RECV operation. If an indicator is specified in columns 56-57, 
incomplete I/O operations are reported to the RPG program. If no 
message is queued on an attempted RECV operation, incomplete I/O is 
reported and control is returned to the RPG program. 


If no indicator is specified in columns 56-57 and a RECV operation is 
executed, control is not returned to the RPG program until a message 
is read. 


Following are several items that could be programmed for depending 
upon the results of incomplete’ I/O reporting: 


a. Notify the operator that specific terminals do not respond. 
b. Send inquiry messages to the terminals. 


c. Have the RPG program perform other functions before attempt- 
ing to read the message again. 


gd. Determine if there is activity on the data communications 
transmission lines. 


Columns 58-59. 


This field is used to indicate if end-of-file conditions are to be 
reported to the RPG program. The end-of-file indicator can be turned 
on by: 


a. Entry of the Quit Controller (QC) input message on the con- 
sole printer by the B 1700 operator, or 


SEND 


b. And end-of-file message is placed in the queue assigned to 
the file by a controlling Message Control System (MCS). 


This operation is used to write exception records (messages) to 
REMOTE data communications files during calculations. Only files 
specified as device type REMOTE and designated as demand in the File 
Description Specifications can be accessed with the SEND operation. 


FACTOR 2 must contain the name of the REMOTE file to which the mes- 
sage is to be sent. The FACTOR 1, RESULT FIELD, FIELD LENGTH, DECI- 
MAL POSITIONS, and HALF ADJUST fields must be left blank. 


The SEND operation is similar to EXCPT but permits the user to speci- 
fy indicators in columns 56-59 to cause the following to be reported 
to the RPG program: 


a. Incomplete I/O operations. 
b. End-of-file conditions if an invalid key is used. 


The indicators that can be specified in columns 56-59 are described 
as follows: 


Columns 56-57. 


This field can be used to specify the type of write discipline de- 
sired for a SEND operation. If an indicator is specified in columns 
06-97 and the SEND operation is attempted when the message queue is 
full, incomplete I/O condition is reported to the RPG program. The 
output message queue size is controlled by the network controller. 


Several actions that could be taken following incomplete I/O 
reporting are: 


a. The RPG program can send the message again. 


b. The B 1800/B 1700 operator can be notified that a terminal 
doesn't respond to inquiry. 


c. Stop attempting to send messages to a particular terminal. 
Columns 58-59. 


This field can be used to indicate if end-of-file conditions are to 

be reported. If an indicator is specified in columns 58-59, end-of- 
file is reported for output and combined (input and output) files if 
an invalid key is used for a SEND operation. 


If no indicator is specified in columns 58-59, end-of-file is not re- 
ported and use of an invalid key results in the display of a DS or DP 
message on the console printer. 


Prior to the first SEND operation, a value must be moved to the station 
number field (columns 22-27 on the Telecommunications Specification 
Line). This value is three characters long and represents the relative 
station number in the file of logical stations defined in the Network 
Controller program. 


Prior to every SEND operation, a value must be moved to message length 
field (columns 28-33 on the Telecommunications Specification line). 
This value is four characters long and represents the largest ending 
position value defined on the Output Specification line for the REMOTE 
file. 


Example Program: 


The following program sends the message 'HI THERE' to the remote 
station from which the program was executed: 


00100H 
OOZ0OFPRIMARY IPE F 180 180 DISK 
OO3OOFREMFILE O F19201920 REMOTE 


OO400TREMFILE 0O01002STATONMESLEN 
OOSOOIPRIMARY AA O1 


006001 1 1 DUMMY 
00700C MOVE ‘OO1' STATON 3: 
Q00800C MOVE '0010' MESLEN 4 
00900C SEND REMFILE 
O1LOOOOREMFILE E Ol 

011000 10 'HI THERE' 


SETLL When this operation is specified in the Calculation Specifications, 


any indexed file that is designated as a demand file can be processed 
sequentially within limits. 


WARNING 


An indexed file designated as a demand 
file cannot be processed sequentially 
within limits by both a limits file and 
the SETLL operation code within the 
Same program. 


When SETLL is specified, the absolute value contained in a field or 
literal is used to establish the lower limit (bound) of the record 

key for the indexed file that is to be processed sequentially within 
limits. The upper limit (bound) automatically defaults to the highest 
record key that exists in the file. 


FACTOR 1 must contain a field name, a vector element, a table name, or 
a literal representing the value of the lower limit being set. A 
whole array is not allowed. The type (alphanumeric or numeric) and 
length of FACTOR 1 should be equal to the type and length of the key 
for the file named as FACTOR 2. 


FACTOR 2 must contain the name of the file for which the lower limit 

is to be set. The named file must be specified on the File Descrip- 

tion Specifications as an indexed demand file processed within limits, 

but must not occur on Extension Specifications. For example, no rec- 

ord address file can be associated with this file. « 


Columns 43-59 must be blank. Columns 7-17 can be used in the normal 
way. 


Whenever the indexed demand file named as FACTOR 2 is read using the 
READ operation, records are read sequentially by key. The SETLL 
operation sets the lower key limit for the file. The next record 
read is the record whose key is next in Sequence but greater than 
the lower key limit. Successive records are read in ascending key 
sequence until either end-of-file occurs or another SETLL operation 
is executed. 


Refer to Section 4 of this manual for additional information concern- 
ing SETLL and file processing within limits. 


DEBUG OPERATION 


The DEBUG operation is a special-purpose function which simplifies the loca~ 
tion and correction of errors in an RPG Program. 


DEBUG 


This operation causes records to be written during calculations. 

These records contain specific information which may be helpful in 
locating errors in the program. DEBUG operations may appear in as 
many places as needed within the Calculation Specifications. Every 
time the DEBUG operation is executed, one or more fixed~format records 
will be written to an output device. One record contains a list of 
all indicators which are ON at the time the DEBUG operation is speci- 
fied; the other record(s) shows the contents of any one field. 


DEBUG operations will be compiled into the object program only if the 
DEBUG field of the Control Card contains a 1 (column 15). All DEBUG 
Operations are syntax checked during compilation. 


The file named must be defined as a sequential output file on the 

File Specifications. All DEBUG output must go to the same file. 
FACTOR 2 must contain the name of the output file on which the records 
are written. 


FACTOR 1 is optional, and may contain a literal or field name to 
identify the particular DEBUG operation being executed. 


FACTOR 1 must not be a whole array, and the size of the field must 
not exceed eight positions. The literal or the value of the desig- 
nated field is written as part of the output records. 


The DEBUG operation may be conditioned by indicators in columns 7-17. 
Columns 49-59 must be left blank. RESULT FIELD is optional, but if 
specified it must be a field, vector, or indexed vector whose contents 
are written on the second and subsequent records. 


DEBUG Operation Output 


One or more records will be written as output from every DEBUG 
operation. The first record is always written; the second and subse- 
quent records will be written only if the RESULT FIELD contains an 
entry. See figure 9-16 for an example of the output produced by the 
DEBUG operation. 


9-53 


vS-6 


SOURCE PROGRAM OUTPUT LISTING 


1 0101 H 1 DESUG- 1 INDICATORS ON-O1 02 05 
ARY +0001 000136 
aRY 40002 000000 


2 0102 FCARDIN IPE 80 80 READER ARY 20003 000000 
3 0103 FPRINTOUTO 132 132 PRINTER ARY 0004 000000 
ARY +0005 000006 
DEBUG- 2 INDICATORS ON-01 02 05 75 80 85 
4 0201 E ARY 5 62 ARDATA 000136 . 
DESUG= “INDICATORS ON-01 02 05 75 85 
DEBUG- INDICATORS ON-O01 02 
5S 0301 ICARDIN AA 01 ELEMENT $ 1 OF ARRAY ZARY2 LOADED WITH: 1.36 LOAD ARYs1 WITH 1.36 
6 0302 I 1  62ARDATA 020304 
7 0303 I 9 100Ix 0S DEBUG= 1 INDICATORS ON-01 04 05 
8 0304 I 13. 80 CMNT ARY 90001 000136 - 


ARY 90002 000000 
ARY 90003 000000 


9 0401 C 01 05 MOVE ARDATA ARYs IX ARY 90004 000000 
S 10 0302 C 212 DEBUGPRINTOUT ARY ARY 30005 000000 
11 0403 C SETON 758085 DEBUG= 2 INDICATORS ON-01 04 05 75 80 85 
12 0404 C 222 DEBUGPRINTOUT ARDATA ARDATA 000000 
13 0405 C SETOF 80 DEBUG— INDICATORS ON-01 04 0S 75 85 
14 0466 C DEBUGPRINTOUT DEBUG= INDICATORS ON-U1 U4 
1S 0407 C SETOF 758505 ELEMENT $ 2 OF ARRAY ZARY2 LOADED WITH: 0.00 LOAD ARYs2 WITH 0.00 
16 0408 C DEBUGPRINTOUT 
DEBUG= 1 INDICATORS ON-01 02 05 
ARY 30001 000136 
17 0501 OPRINTOUTD 2 02 ARY 20002 000009 
18 6502 0 9 >ELEMENT $> ARY 36003 123456 
19 0503 0 IX 7 1} ARY 20004 000000 
20 0504 0 33 > OF ARRAY 22ARY>2 LOADED> ARY 20005 000900 
21 0595 0 40 2 WITH: 2 CEBUG= 2 INDICATORS ON-01 02 05 75 80 85 
22 0506 O ARDATA 48 > 0. 2 ARDATA 123456 
23 0507 O CMNT 120 CESUG= INDICATORS ON-01 O02 05 75 85 
DEB8UG= INDICATORS ON-01 02 
ELEMENT $ 3 OF ARRAY 2ARY2 LOADED WITH: 1234.56 LOAD ARY+3 WITH 1234.56 
DEBUG= 1 INDICATORS ON-O1 02 05 
ARY 20001 000136 
ARY 20002 000000 
ARY 20003 123456 
ARY »0004 999999 
ARY 20005 000000 
DEBUG= 2 INDICATORS ON-O1 62 05 75 80 85 
ARDATA 999999 
DEBUG= INDICATORS ON-01 G2 05 75 85 
DEBUG= INDICATORS ON-01 02 
ELEMENT $ 4 OF ARRAY 2ARY2 LOADED WITH: 9999.99 LOAD ARYs4 WITH 9999.99 
DEBUG= 1 INDICATORS ON-01 02 05 
ARY 2000) 000135 
ARY 20002 000000 
ARY 20003 123456 
ARY 20004 999999 
ARY 20005 654321 
DEBUG= 2 INDICATORS ON-01 02 05 75 80 85 
ARDATA 654321 
DEBUG= INDICATORS ON-01 02 05 75 85 
DEBUG~ INDICATORS ON-01 02 
ELEMENT $ S OF ARRAY 2ARY2 LOADED WITH: 6543.21 LOAD ARYsS WITH 6543.21 
614070 


Figure 9-16. DEBUG Operation Output 


, 


The first record written is in the following format: 


Record 
Position 


2-7 

9-17 

18-31 

32-any posi-~ 
tion depending 
on the number 


of indicators 
ON 


DEBUG 
Blank 
The words INDICATORS ON- 


List of indicators that are 
ON, separated by blanks. 


TIME 


The TIME operation provides the system time. The system date is pro- 
vided as an option. System time and system date, as referred to here, 
are the dynamic time and date provided by the system, and may change 
during the execution of an RPG program. 


To use this operation, enter the operation code TIME in columns 28-32 
of the Calculation Specifications. The Result Field, columns 43-48, 
must contain the name of a six or twelve digit numeric field which 
may be defined elsewhere in the program or in columns 49-52 of the 
Calculation Specifications. The numeric field named in columns 43-48 
may not be a whole array. FACTOR 1, FACTOR 2, HALF ADJUST, and the 
Resulting Indicators must remain blank. 


After this operation is performed: 


a. A six-digit Result Field will contain the system time in the 
format hhmmss, where hh represents hours, mm represents 
minutes, and ss represents seconds. 


b. A twelve-digit Result Field will contain both the system 
time and the system date, with the format of the system date 
being dependent on the entry in the Inverted Print field 
(column 21) of the Control Card Specification. 


If the Inverted Print field contains a blank, the Result 
Field is provided in the format hhmmssmmddyy. 


If the Inverted Print field contains aD, I, or J, the 
Result Field will be in the format hhmmssddmmyy, where hh 
represents hours, mm represents minutes, ss represents 
seconds, mm represents month, dd represents day, and yy 
represents year. 


SECTION 0) 
OUTPUT-FORMAT SPECIFICATIONS 


The Output—-Format Specifications state where a record is to be written. 
Within the file where the record is to be written, these specifications also 
define when to write, what data is to be written, and the location and format 
of the data within the record. 

Depending on the peripheral equipment available, RPG can be used to write on 
line printers, character printers, tapes, disks, cards and remote devices. 
While any of these devices can be used to create new files or records, disks 
are suitable for changing a record in place without changing the location of 


the record in the file. Therefore, the Output-Format Specifications can des- 
cribe all of, or part of, a record. 


The Output-Format Specifications are used to define where to write. Device in 
the File Description Specifications names the peripheral and filename associ- 
ates a uniquely devised mnemonic with that device. 


The Output-Format Specifications are functionally divided into the following 
two sections: 


a. Record description, consisting of columns 7-31. 
b. Field description, consisting of columns 23-70. 
RECORD DESCRIPTION SECTION 
The record description section contains the following information: 

a. Where the record is to be written - filename, columns 7-14. 

b. When the record is to be written - file type, column 15. 

1. Detail output, enter D. Enter H for heading information. 

2. Total output, enter T. 

3. Exception output, enter E. Exception output is written only as a 
result of the EXCPT operation code and may be executed during 
either detail calculations or total calculations. 

c. Output conditioning indicators, columns 23-31. These indicators are 
used in parallel with the H, D, T, and E of column 15 further control 
when the record is to be written. 

FIELD DESCRIPTION SECTION 


The field descriptions contain the following information: 


a. When to write the data on the record. Output conditioning indicators, 
columns 23-31. 


10-1 


b. What data to write on the record. 
1. Variable name, columns 32-37. 
2 Edit codes, column 38, punctuate the data written. 
3. Blank after, column 39, clears the field after the write. 
4 Constant or edit word, columns 45-70, punctuates and/or specifies 
constant information to be written in the record. 


c. Relative location where the data is to be written in the record-end 
position, columns 40-43. 


d. Format of data to be written in the record. 
1. Edit codes, column 38, punctuate numeric variables. 
2. Packed, column 44, may specify packed format of numeric variables. 


3. Binary, column 44. May specify binary format of numeric 
variables. 


4. Constant or edit word, columns 45-70, specifies constant data 
and punctuation and constants, if required, of numeric variables. 


Since several of the Output-Format Specification fields have multiple usages 
which are conflicting, they are discussed in the text of this section. 


“ves Figure 10-1 illustrates and describes the Output-Format Specifications form. 
“oc; The first Output Specification must be a record type description. Field de- 
ois Scription entries must start one line below the associated record type de- 
oe scriptions. A warning is emitted if a record type description has no 

vee associated field descriptions. 


FIELD DEFINITIONS 


Refer to figure 10-1 in conjunction with the following field definitions for 
the Output~Format Specifications. 


1-2 PAGE 
Refer to Section 2 for complete description. 

37-5 LINE 
Refer to Section 2 for complete description. 

6 FORM TYPE 
An O must appear in this field. 

7-14 FILENAME 
This field is used to identify the file to which the subsequent record 
type and field description entries belong. The file specified mus t 
have been previously described on the File Description Specifications 
form as output, update, combined, or input, with an A in column 66 on 


the File Description Specifications and ADD specified in columns 16- 
18 of the Output-Format Specifications. Every output file described 
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TYPE 


SKIP 


sp 
A 
Ce 


A. 7-14 Contains a filename specified in the 
File Description Specifications. 


B. 14-16 Puts the output indicators in an AND or 
OR relationship. Entries: AND or OR. 


C. 15 Specifies the type of output record to be 
written. Entries: H, D, T or E. 


D. 16-18 Specifies if a record is to be added 
to an indexed sequential file. Entries: 
Blank or ADD. 


E. 16 Specifies (1) which stacker the output 
card is to be placed or (2) that the over~ 
flow routine is to be invoked. Entries: 
Blank, F, or 1-N (N=number of stackers). 


F. 17-18 Specifies forms spacing, before or 
after printing, for printer output files. 
Entries: 0 or blank, or 1-9. 


G. 19-22 Specifies forms skipping, before or 
after printing, for printer output files. 
Entries: 0-99, AO-A9, BO-B2, or blank. 


He. 237-31 Output Indicators: 


23, 26, 29 Indicates if the output indicator 
in columns 24-25, 27-28, or 30-31,‘ must be 
ON or OFF. Entries: Blank or N,. 


24-25, 27-28, 30-31 Contains a previously 
defined indicator which is to condition 
output. Entries: 01-99, LO-L9, LR, MR, 
HO-H9, U1-U8, OA-OG, OV, 1P, or blank. 


GI4071 


e-OL 


Figure 10-1. 
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PROGRAMMER 


EDIT CODES 
FIELD NAME 
(VARIABLE 
NAME) 


BLANK AFTER 


END POSITION 
PACKED 


PROGRAM 
IDENTIFICATION 


\ x 


32-37 Contains a previously defined field 
name or vector or one of the special field 
names PAGE, PAGE through PAGEn, *PLACE, 

*PRINT, UDATE, UMONTH, UYEAR, UDAY, JDATE. 


38 Specifies the editing for a numeric output 
field when not using an edit word. Entries: 
Blank, 1, 2, 3, 4, A, B, C, D, J, K, L, M; 

X, Y, or Ze 


39 Specifies if a variable is to be reset after 
the output operation is finished. Entries: 
Blank or Be 


40-43 Specifies the location of a field 
within an output record. Entries: 1-N 
(N=maximum record length) right-~justified or 
an * in column 40. 


44 Specifies that an output field is to be 
written in alphanumeric, packed or binary 
format. Entries: Blank, P, or B. 


45-70 Contains constants and/or edit words, 
used to format and punctuate output records, 
enclosed in apostrophes and left-justified. 
Entries: Any valid RPG character (see text 
for uses of characters with special meanings). 


Output~Format Specifications Summary Sheet 


in the File Description Specifications should also be described on 
the Output~Format Specifications form, but this is not required. 


If this entry is blank on a record type description, the filename of 
the previous record is assumed. The first record type description 
must not have a blank filename entry. 


For update files, only the fields to be changed must be specified in 
an output record. The remainder of the update record remains 
unchanged. 


15 TYPE 


This field is used to specify when an output record is to be written. 
These records contain such information as the following: 


a. Heading records contain such information as page headings, 
and are treated as if they were detail records. 


b. Detail records usually contain some type of data obtained 
directly from input records and calculation operations. 
Detail records are written once during every cycle, de- 
pending upon conditioning indicators. 


ec. Total records usually contain totals accumulated from a 
group of input records. Total records are written only 
during cycles in which a control break occurs, depending 
upon conditioning indicators. 


d. Exception records are written during calculation time, 
through use of the EXCPT or SEND operation codes. 


Valid entries for this field are: 


Definition 


nn a an i eens rt en aaa 


Heading records. 
Detail records. 
Total records. 


Exception records (written during 
calculation time). 


pan pe NR eh rrr ATR EI 


Record types can be specified in any order. However, if all output 
indicators are satisfied, the sequence of output is the order speci- 
fied on the Output—-Format Specifications, as follows: 


a. Heading and detail output. Each cycle including IP output 
on the first cycle only. 
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16-18 


b. Exception output. During total calculation except during 
the first cycle. 


; c. Total output. Each cycle except the first. 


d. Overflow output. Each cycle when a paper overlow condition 
has occurred. 


e. Exception output. During detail calculations. 


First page (1P indicator ON) output is heading or detail output con- 
ditioned with the 1P indicator, and only occurs at the beginning of 
program execution because the 1P indicator is permanently turned OFF 
after the first detail output. 


Overflow output is heading, detail, or total output records condi- 
tioned with an overflow indicator. 


For ease of writing and subsequent program maintenance, one of the 
following two methods is usually used for determining output record 
sequence: 


a. The records within one file are specified, beginning with 
heading records and continuing with detail records, total 
records, and exception records. 


b. The programmer can specify headings for all files, detail 
records for all files, total records for all files, and 
exception records for all files. 


The two methods of determining the sequence of output specifications 
can be varied as required, so that the programmer can ensure the 
proper physical sequence of the records in the files. 

Exception records can be specified for a combined file, although this 
is not recommended for files other than REMOTE. Exception output 


records conditioned on LO-L9Y or total output must not be specified 
for primary or secondary update files. 


RECORD ADDITION 


If a record is to be added to an input, output, or update file, the 
following conditions apply: 


a. The file must be a disk file. 


b. The corresponding File Description Specification must have 
an A in column 66. 


c. The word ADD must be entered in columns 16-18 of the record 
type description. 


d. ADD must not be specified on an AND/OR line. 
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STACKER SELECT 


STACKER SELECT/FETCH OVERFLOW 
This field may be used to specify: 


a. The stacker into which the output or combined file card is 
placed after it is processed, or 


b. That the overflow routine can be called for possible execu- 
tion prior to printing the record specified by this line. 


Valid entries for this field are: 


Definition 


Blank Cards automatically go to 


default stacker. 


Numeric Stacker into which card type 
Entry is stacked. 


F Fetch overflow (printer 
files only). 


Output card files can only be stacker selected on the Output-—Format 
Specification. 


Combined card files can be stacker selected on either the Input 
Specifications or the Output-Format Specifications. At program exe- 
cution time, if a record appears that is selected in both the Input 
and Output Specifications, it is selected according to the Output- 
rormat Specification. The programmer should try to avoid such in- 
stances because the results may be confusing. 


Stacker selection on the basis of matching records should be speci- 
fied only for detail output lines, because the card is selected prior 
to total time. 


If the numeric entry specifying stacker selection is greater than the 
potential of the attached hardware device, the record is selected to 
the normal (default) stacker. 


Record types identified by OR lines can be stacker selected to a 
special stacker by an entry in the field. However, if the stacker 
select field is left blank, the record type selected by the OR line 
goes to the default stacker (stacker select entry on the previous 
line is not assumed). AND lines can not have a stacker select entry. 


FETCH OVERFLOW 


If the printing of a line could cause overflow, leaving insufficient 
Space on the page to print the remaining detail, total output lines 
or lines conditioned by the overflow indicator, FETCH OVERFLOW 
Should be specified (F in column 16). 


When the overflow line is reached, the same sequence of events always 
occurs. These events are described in detail in the subsection titled 
Printer File Handling in this section of the manual. Briefly, remain- 
ing detail lines, total lines, and overflow-lines (lines conditioned 
by the overflow indicator) are printed on the page following the 
occurrence of overflow. 


If, however, it is desired to print overflow lines ahead of the usual 
time, a FETCH OVERFLOW routine may be specified. This may be ini-~ 
tiated any time after the overflow line has been reached. When over- 
flow is caused in this manner, the following actions take place: 


a. All total lines conditioned by the overflow indicator are 
printed. If skipping is specified on these lines, it oc” 
curs as defined by the user. 


b. Heading and detail output lines conditioned by the overflow 
indicator are printed. If skipping is specified on these 
lines, it occurs as defined by the user. 


c. The line that fetched the overflow routine is printed. 


d. Any detail and/or total lines left to be printed in the 
current program cycle are printed. 


For the printer file, an F in column 16 on the Output Format Speci- 
fications specifies that the overflow routine will be fetched. An F 
can be specified for any total, detail, or exception line that is 
not conditioned by an overflow indicator. 


If a line causes the overflow indicator to turn ON, the next line 
containing an F in column 16 will cause the execution of the over- 
flow routine. When that is complete, normal printing will resume 
with the statement that fetched the overflow routine (see figure 1072). 
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Figure 10-2. FETCH OVERFLOW Coding Example 
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In the example in figure 10-2, if the printing of line 03 causes the 
overflow indicator to turn on, output lines will occur in the follow- 
ing order: 

05 is printed on the same page if indicator Ll is on. 

07 fetches overflow. 

09 and 1l are printed. 

Ol is printed after skipping to a new page. 

07 is printed if indicator Ll is on. 
Forms will not automatically advance to a new page. It is the pro- 
grammer's responsibility to specify a skip to the first printing line 


on a new page. This skip to Top~of-~Page must be specified on a line 
conditioned by the overflow indicator (see figure 1073). 
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Figure 10-3. Overflow Indicator with Skip Specified 


Fetch may be specified for an OR line, but not for an AND line. 
Fetched overflow can be specified for any detail, total, or ex- 
ception line, except those conditioned by an overflow indicator. 


' When more than one printer file is used, fetch pertains only to the 


overflow lines associated with the file in which the record speci- 
fying fetch is defined, 


Exception Lines 


Since an overflow indicator cannot be specified on an exception out~ 
put line (E in column 15), FETCH OVERFLOW may be used to cause over- 
flow output at exception time. 


The use of fetch overflow (figure 10-4) will cause the heading, de- 
tail, and total overflow lines to be printed when the overflow line 
has been passed (if the conditioning indicators of the fetch line 

are satisfied). The user may also force overflow by setting ON the 
appropriate overflow indicator (using the SETON operation code) prior 
to issuing the EXCPT operation code. 
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Figure 10-4. FETCH OVERFLOW with Exception Output Coding Example 
SPACE 
This field is used to specify forms spacing for printer output files. 
It is divided into two subfields such that spacing BEFORE or AFTER 
printing may be specified. If both fields (SPACE and SKIP) are blank, 
single spacing after printing is assumed. 


Valid entries for this field are: 

Definition | 

“No spacing specified. 
Space Suppress. 
Space 1-9 lines, as 
specified. 


Refer to the subsection titled Printer File Handling in this 
section of the manual for additional information. 


10-9 


19-22 


10-10 


SKIP (RPG II DIALECT) 


This field is used to specify forms skipping for printer output files. 
It is divided into two subfields such that skipping BEFORE or AFTER 
printing may be specified. Valid entries for this field are: 


Sana 


Definition | 
Line number for skip~0-99. 


Line number for skip~100-109. | 


Line number for skip~110-112. | 


No skipping specified | 


Refer to the subsection titled Printer File Handling in this section 
of the manual for additional information. 


A skip entry must not be greater than the form length as specified 
inthe Line Counter Specifications or as defaulted. 


If both skipping and spacing are specified on the same line, the 
operations are performed in the following order: 


a. SKIP BEFORE. 

b. SPACE BEFORE. 

c. SKIP AFTER. 

ad. SPACE AFTER. : 


The user should exercise his option to ensure skipping and spacing 
AFTER printing since it is more efficient than skipping and spacing 
BEFORE printing. 


Different SPACE and SKIP entries may be specified for OR lines. If 
all these entries are blank for an OR line, spacing and skipping are 
done according to the specifications on the preceding line. If any 
entries are made for an OR line, all desired spacing and skipping 
must be specified. SPACE and SKIP entries are not permitted on AND 
lines, Spacing and skipping must not be specified for other than 
printer files. 
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OUTPUT INDICATORS 


This field is divided into three subfields such that up to three in- 
dicators on each line may be specified to condition an output opera- 
tion. Each subfield is divided into two parts as follows: 


a. NOT (one column). 
b. INDICATOR (two columns). 


The NOT portion is used to specify that the associated indicator 
must be OFF in order for the operation to occur. If this condition 
is desired, an N must be entered in the NOT portion. Otherwise, 

the NOT portion must be left blank. No output line should be condi- 
tioned by all negative indicators (at least one of the indicators 
used should be positive). If all negative indicators condition a 
heading or detail line, the line is printed at the beginning of the 
program cycle when 1P lines are written. 


The INDICATOR portion is used to specify the indicator to be tested 
for ON (NOT = blank) or OFF (NOT = N). The following entries are 
allowed in this portion of the INDICATORS field: 


Operation not conditioned by 
an indicator. 


Operation conditioned by indi- 
cator used elsewhere in the 
program. 


Operation conditioned by 
control level indicator 
previously assigned. 


Operation conditioned by last 
record indicator. 


Operation conditioned by match- 
ing record indicator. 


Operation conditioned by halt 
indicator used elsewhere in 
the program. 


Operation conditioned by exter- 
nal indicator previously set. 


Operation conditioned by over- 
flow indicator previously set. 


Operation conditioned by first 
page indicator. 


All three indicators on one line are in an AND relationship. All 
indicators on one line (or grouped lines) must be ON or OFF as 
specified in order for the associated operation to take place. 


An indicator specified on the line describing the record type will 
condition the entire output record. An indicator used to condition 
a field within the record is placed on the same line as the field 
description (see figure 10-5). 
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Figure 10-5 Output Indicators Coding Exampie 


The following paragraphs describe the uses of each of the output 


indicators. 
01-99 Numeric indicators may be used as follows: 

ae To condition output operations that are only to 
be performed for specific input record types 
(record identifying indicators). 

b. To condition output operations that are to be 
done when an input field meets certain conditions 
(field indicators). 

c. To condition output operations according to the 
results of previous operations in the Calcula~ 
tion Specifications (resulting indicators). 

LO-L9 Control level indicators may be used to condition output 


operations that are to be performed only on the first 
record of a new control group. 


The LO indicator remains ON during the entire program. 
If no other control level indicators are assigned, but it 
is desired to perform total calculation and total output 
operations, the LO indicator may be used to condition 
those operations. 
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LR 


MR 


HO-H9 


U1-U3 


OA-OG,OV 


The last record indicator is used to condition output 
Operations that are to be performed at End-~of-Job. 


The matching records indicator is used to condition output 
operations that are to be performed only when matching in- 
put records are found. 


Halt indicators previously assigned in the FIELD INDICA7~ 

TORS field (Input Specifications) or the RESULTING INDI- 

CATORS field (calculation Specifications) may be used to 

condition output operations that are to be performed only 
when an error condition occurs. 


Since the program does not halt until after the record in 
error has been completely processed, some operations must 
be prevented in order to avoid erroneous output. By using 
halt indicators in conjunction with an N in the NOT portion 
of the INDICATORS field, an operation may be inhibited 

when the specified halt indicator is ON. 


If an output file is specified as conditioned by an ex 
ternal indicator in the File Description Specifications 
(EXTERNAL INDICATORS field), every output record described 
for the file should be conditioned by the same external 
indicator, otherwise the object program will still build 
the output record (and perform any blank after operations 
specified) but must suppress the write operation. 


Overfiow indicators previously assigned in the OVERFLOW 

INDICATOR field (File Description Specifications) may be 
used to condition output operations that are to be per- 

formed when the overflow line on a printer file has been 
reached. 


Overflow indicators which have not been previously assigned 
in the File Description Specifications (except OF and OV, 
which are compiler defined) may not be used in the Output 
Format Specifications. Forms advancing at End-of~Page are 
handled automatically if no overflow indicators are assigned 
to the file. Any specification line not conditioned by an 
overflow indicator which designates a skip to the next 

page turns OFF all overflow indicators before the skip 

takes place. 


Overflow indicators must not be used to condition excep- 
tion records but may condition fields within exception 
records. 


No more than one overflow indicator may be associated with 
a group of output indicators in an AND or OR relationship, 
and it must be the same indicator assigned to the file in 
the File Description Specifications. 


The overflow line can be sensed when printing total or 
detail time output. If an overflow indicator is being used 
to condition output lines, the following steps occur when 
the overflow line is sensed during total time output: 


ae The overflow indicator turns on. 


~ 
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oe 


The remaining total lines not conditioned by 
overflow are printed. 


All total lines conditioned by overflow are 
printed. If skipping is specified on these 
lines, it occurs as defined by the user. 


Heading and detail output lines conditioned by 
overflow are printed. If skipping is specified 
on these lines, it occurs as defined by the user. 


Heading and detail lines not conditioned by over- 
flow are printed. 


The overflow indicator turns off. 


If the overflow line is sensed during detail time output, 
the following steps occur: 


f. 


ge 


The overflow indicator turns on. 


The remaining detail lines not conditioned by 
overflow are printed. 


All total lines not conditioned by overflow are 
printed. 


All total lines conditioned by overflow are 
printed. If skipping is specified on these lines, 
it occurs as defined by the user. 

Heading and detail output lines conditioned by 
overflow are printed. If skipping is specified 
on these lines, it occurs as defined by the user. 


Heading and detail lines not conditioned by over 
flow are printed. 


The overflow indicator turns off. 


When using the overflow indicator to condition overflow 


printing, 


Ae 


b. 


remember: 


Overflow indicators may be turned on and off by 
the operation codes SETON and SETOF. 


Spacing past the overflow line causes the overflow 
indicator to turn on. 


Spacing or skipping past the overflow line to 
any line on the new page does not turn the over- 
flow indicator on. 


A skip to a new page specified on a line not con 
ditioned by an overflow indicator causes the over~ 
flow indicator to turn off. € 


Control Level Indicators With Overflow Indicators 


If it is desired to have headings identifying the type of 

information on each page or each page to contain informa~ 

tion from only one control group, control level indicators 
may be used in conjunction with overflow indicators. To- 

gether they condition when headings and/or group informa- 

tion are to be printed. 


In the example in figure 10-6, the control level indicator 
Ll is used in conjunction with the overflow indicator in 
order to print headings on every page. Line O1 allows the 
headings to be printed at the top of a new page only when 
overflow occurs. Line 02 allows printing of headings on 

a new page only at the beginning of a new control group 
(L1). In this way, duplicate headings caused by both Ll 
and OF being ON at the same time will not occur. 
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Figure 10-6. Using Control Level Indicators With Overflow Indicators 


Figure 10-7 shows the necessary coding for the printing of 
certain fields on every page. 
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Figure 10-7. Coding for the Printing of Certain Fields 
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1P The first page indicator is used to condition HEADING and 


DETAIL printer output before the first record is proces- 
sed. The 1P indicator is turned on by the RPG program 
and is set off after detail-time output and before the 
first record iS processed. It cannot be used to condi- 
tion calculations, output at total time, or output at 
exception time. 


All lines conditioned by the 1P indicator are written 
even before the first record from any input file is 
processed. Therefore, do not condition output fields 
(except PAGE, UPDATE, UYEAR, UMONTH, UDAY, and JDATE) 
which are based upon data from input records by the 1P 
indicator. 


The 1P indicator may also be used in an OR relationship 
with the overflow indicators OA-OG, OV. This allows 
printing the same HEADING or DETAIL information on all 
pages. 


The 1P indicator is invalid for update and combined files. 


When forms are first inserted in the printer, they may 
not always be in perfect alignment. Sometimes several 
lines must be printed to determine the correct position- 
ing of the form. Specifying the number 1 in column 41 
of the Control Card Specification, allows the option of 
repeatedly printing the first line conditioned by the 1P 


indicator. Each time the 1P line is printed, the program 
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Figure i0-8. 1P Indicator Coding Example 
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32- 


halts allowing the operator to reposition the form, if 
needed. To continue processing, enter on the CONSOLE 
(SPO): < program number > AXGO. 


AND/OR If it is necessary to specify more than three indicators 
to condition an output operation, an AND line may be used. 
The word AND must be entered in columns 14-16, and the 
additional indicators entered in their respective fields. 
The conditions specified for all indicators in an AND re- 
lationship must be met before the associated output opera- 
tion will take place. 


OR lines (OR in columns 14-15) may be used to group indi- 
cators such that only one of the conditions specified must 
be met for the associated output operation to take place. 
Both AND and OR lines may be used together to condition an 
output record (but not a field). <A maximum of three indi- 
cators in an AND relationship (on one line) may be used 

to condition a field. See figure 10-5 for an example of 
the usage of AND and OR lines. 


There is no limit on the number of AND or OR lines that 
may be specified. However, it is recommended that the 
user not exceed 20 if compatibility with other Burroughs 
systems is desired. There must be at least one indicator 
on an AND/OR line and on the preceding line. 


FIELD NAME (VARIABLE NAME) 


This field is used to assign an identifier (name) to an output data 
field. The identifier used must have been previously defined in 

the Input Specifications (VARIABLE NAME field), the Extension Speci- 
fications (VECTOR NAME field), or the Calculation Specifications 
(RESULT FIELD field). Also, any special words may be used. A 
separate line must be used for each field description. Fields may 
be listed in any order within each record type, Since their location 
is determined by the entry in the END POSITION fields. If fields 
overlap, only the last field specified appears intact in the output 
record (the exact results will depend upon the degree of overlap). 


Special Words 


The following special words are reserved for use as variable names: 


PAGE through PAGEn 
UDATE 

UMONTH 

UDAY 

UYEAR 

JDATE 

*PLACE 

*PRINT 


Each special word has a specification defined usage, as described 
in the following paragraphs: 
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FORM TYPE STACKER SELECT/FETCH OVERFLOW 


Page Fields 


When page numbering is to be done on output, the special words 

PAGE through PAGEn are used to indicate that automatic page number- 
ing is to be performed. When a PAGE field is named in this field 
without being previously defined in the Input or Calculation Speci- 
fications, it is assumed to be four characters in length with no 
decimal positions. On output, leading zeros are suppressed and the 
Sign is not printed unless an edit word or edit code is specified. 


The page number begins at zero (unless otherwise specified), and is 
automatically incremented by one each time before the page field is 
written. 


The page number may be reset at any point during the program by set- 
ting the PAGE field to zero before it is printed (see figure 10-9). 
This may be accomplished in two ways: 
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Figure 10-9. PAGE Specification Coding Example 


a. Use the BLANK AFTER specification to cause the field to be 
cleared to zero after printing, or 


b. Assign an OUTPUT INDICATOR to the PAGE field. If the indi- 
cator is ON, the field will be set to zero before normal 
incrementation takes place. 


The same PAGE through PAGEn entry may be used for two different out- 
put files, but this is not recommended. PAGE fields are not restric- 
ted to printer files. 


ra 
‘ 


Date Fields (UDATE, UMONTH, UDAY, UYEAR and JDATE) 


Five special words allow the program to obtain the current value of 
the date as supplied through the B 1800/B 1700 System. The follow- 
ing rules apply to date fields. 


a. 


UDATE gives a 6-digit numeric field in one of the following 
formats (depending upon the entry in the INVERTED PRINT 
field of the Control Card): 


1) Domestic (MMDDYY), or 
2) International (DDMMYY). 


The other three fields, UMONTH, UDAY, and UYEAR, each gives 
a 2-digit field representing the month, day, and year, 
respectively. 


These fields must not be changed by any operations within 
the program; thus, they are usually used only in compare, 
test, and output operations. 


JDATE is a special word reserved for accessing the Julian 
date as obtained from the system. JDATE can be used 
anywhere that UDATE can be used. JDATE can not be changed 
in any way by the RPG program. JDATE is five digits long 
with zero decimal places and has the format YYDDD. 
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*PLACE Specification 


The special word *PLACE allows writing of the same field or fields 
in more than one place in an output record without having to specify 
the field names and end positions more than once. The designated 
fields are written in the same relative positions ending in the po- 
sition specified for the *PLACE entry. It is possible to obtain the 
same results in two ways (see figure 107-10). 


a. Define each field and its corresponding end position for 
every time it is to appear in the output records, or 


b. Use the special word *PLACE. 
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Figure 10-10. *PLACE Specification Coding Example 


Both methods will produce identical results, but use of the *PLACE 
entry saves extra coding. 


The following rules must be observed when using the *PLACE specifi- 
cation: 


a. All fields within the record type written above the *PLACE 
entry are repeated according to the *PLACE specification, 
not just the one line above. 


b. An end position must be given for every *PLACE specifica- 
tion. 
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c. An additional *PLACE entry (on a separate line) must be 
used every time the fields are to be repeated. 


d. *PLACE must be specified after the field names which are 
to be placed in different positions on the line; *PLACE 
must not be specified on the first field description line 
for a record. 


e. The end position specified for *PLACE should be at least 
twice the highest previously specified end position. If 
enough space is not allowed for all fields to be printed 
again, overlapping will occur, with the *PLACE output 
overlapping the previous characters. 


f. The end position specified for *PLACE must not be lower 
than the highest previously specified field end position. 


g. The leftmost position of the fields to be moved by the 
*PLACE specification is always assumed to be position l. 


h. When *PLACE is specified for card output, the fields and 
constants named above will be repunched. Any printed 
output on the cards will not be reprinted unless an * is 
entered in column 40 of the same line as *PLACE. 


i. Only the conditioning indicators (columns 23731), FIELD 
NAME (columns 32-37) and END POSITION (columns 407-43) may 
have entries. 


*PRINT Specification 


The special word *PRINT is used to cause card interpreting after 
punching (for card files only). Printing is done at the top of 
the cards in the same column positions as the fields are punched. 
The *PRINT specification must be used only once for each record 
and appears after all fields on the card which are to be printed. 
The *PRINT specification may be conditioned by indicators in the 
OUTPUT INDICATORS field; all other fields must be left blank 

(see figure 10711). 


Having the *PRINT specification print the corresponding field 
exactly as punched is not always desirable. 


To print the fields in positions other than would be assigned by 
the *PRINT specifications: 


a. Enter the field name to be printed in the VARIABLE NAME 
field, and 


b. Enter an asterisk in column 40, and 
c. Enter the end position for the field in columns 417-43 


(limited to a maximum of 128), right-justified; leading 
zeros not required. 


& 
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Figure 10-11. *PRINT Specification Coding Example 
38 EDIT CODES 


This field is used to specify editing of an unpacked numeric output 
field. Editing operations have been provided, for which it is not 
necessary to write an edit word. These operations and their cor- 
responding edit codes are summarized in the EDIT CODES portion of 
the Output-Format Specifications sheet. 


Only unpacked numeric fields can be edited, and if an edit code is 
specified, the Constant or Edit Word field must be left blank, ex- 
cept when the check protect or floating dollar sign is required. 
In that case, enter an asterisk (*) or dollar sign ($), respect- 
ively, in column 45-47. Edit codes X, Y, and Z may never be used 
with the asterisk or dollar sign. The Y edit code must only be 
used with field lengths of three to six digits. 
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When an entire array is to be edited with an edit code, the follow- 
ing points must be taken into account to avoid specifying the end 
position less than the total size of the output data: 


a. 


b. 


Two spaces are inserted to the left of each element, and 


Commas, decimal points, and minus signs occupy one 
character each. The credit sign (CR) occupies two 
characters. 


The following are the edit code rules: 


a. 


Conditioning indicators on the record description line and 
the field description line determine when the field is 
written. 


The variable name specified in columns 32-37 must be 
previously defined as: 


1. An entire numeric array, or 

2. A Single element of a numeric Table or Array, or 
3. <A numerically defined field, or 

4. <A numerically defined special word. 


The use of an edit code in column 38 will cause various 
punctuation of the numeric field specified in columns 


32-37. 


The use of B in BLANK AFTER, column 39, clears the field 
after output but does not affect any editing specified 
on this line. 


End Position, columns 40-43, defines where the last 
character of the edited output is to appear. 


NOTE 


Syntax errors occur if the total length 
in bytes of the variable and all insert- 
ed decimals, commas, and status reporting 
is greater than the length in bytes from 
the specified end position to position 
one of the output record. 


Packed, column 44, must be blank. 
The Constant or Edit Word portion of this specification 
line must remain blank, except for the following two 


exceptions: 


1. If the check protect asterisk is required, enter | 
an asterisk in columns 45-47. “he 


2. If the floating dollar sign is required, enter a 
dollar sign in columns 45-47. 


NOTE 


The check protect asterisk and the 
floating dollar sign may never be used 
with edit codes X, Y, or Z. 


h. Edit codes A, B, J, K, 1, and 2 provide the comma option. 
Commas will only be inserted in the edited output if sig- 
nificant non-zero integers exceed three in number. 


i. Edit codes A, C, J, L, 1, and 3 provide the zero balance 
option. This option provides that at least one zero will 
be written if the value of the field is zero. The number 
of zeroes written is determined by the decimal positions 
assigned when the field was defined, as shown in the 
following example: 


Decimal Position Zero Balance Output 
O O 
1 .O 
2 00 
9 . 000000000 
j. A sign or symbol for a negative number may be requested or 
ignored. 


1. When requested, A, B, C, and D provide CR for negative 
status report and J, K, L, and M provide - for nega- 
tive status report. 


2. When ignored, 1, 2, 3, and 4 provide for no status 
report. 


k. Edit code X provides for removal of the plus sign from the 
field with no zero suppression. 


1. Edit code Z provides for removal of all signs and the sup- 
pression of leading zeroes. 


m. Edit code Y provides for editing in date field format. 
The variable must be no less than three digits and no more 
than six digits in length. 


n. An entire array can be edited with one edit code. Include 
the following when specifying the end position: 


1. One space for each character of the array, plus 
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Edit Cannas Decimal Zero 
Code Point Suppress 
Yes Yes 


1 

2 Yes 
3 

4 

A Yes 
B Yes 
C 

D 

J Yes 
K Yes 
L 

M 

X** 

YR 

Z 


Yes 
Yes 


Two spaces to be inserted to the left of each element, 
plus 


One space for each comma that may be inserted, plus 
One space for each decimal that will be inserted, plus 
one of the following unless using edit codes 1, 2, 3, 


or 4. 


(a) One space for each minus sign with each element, 
or 


(b) Two spaces for each CR sign with each element. 
Table 10-1. Edit Codes Table 


Printout on Zero Balance* 


Domestic 
United 
Kingdom 


Inter~ 
national 


Inter- 
national 


Sign For 
Negative 
Balance 


Yes No Sign ,00 or 0;0,00 or OO; .00 or O 
Yes No Sign Blanks Blanks Blanks 


Yes No Sign Blanks Blanks Blanks 
Yes CR ,00 or 0 |0,00 or O 00 or O 
Yes CR Dianks Bianks Blanks 
Yes CR ,00 or 0 |0,00 or 0} .00 or O 
Yes CR Blanks Blanks Blanks 
Yes = ,00 or 0 |0,00 or 0 | .00 or O 
Yes = Blanks Blanks Blanks 
Yes S ,00 or 0/}0,00 or 0 | .00 or O 
Yes = Blanks Blanks Blanks 
Yes 
Yes 

NOTES 


*Zero balances for the International format are printed or punched 
in two ways, depending on the entry made in column 21 of the Control 
Card Specifications. 


**The X code removes the sign. 


***The Y code suppresses the leftmost zero only. The Y code edits a 
three to six digit field according to the following pattern: 
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nn/n 
nn/nn 
nn/nn/n 
nn/nn/nn 
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BLANK AFTER 


This field is used to specify that a variable is to be reset after 
the output operation is finished. Alphanumeric fields will be 
cleared to blanks and numeric fields will be cleared to zeros. 
Constants and UDATE, UDAY, UMONTH, and UYEAR must not be specified 
with BLANK AFTER. Valid entries for this field are: 


Entry Definition 


Blank Field is not to be cleared. 


Variable is to be cleared 
after being moved to the 
output buffer. 


Entering a B in column 39 specifies that the field named in columns 
32-37 is to be set to zero or blank if the field is numeric or 
alphanumeric, respectively. This is to be done immediately after 
output to the designated record work area. 


When an indicator is assigned to a field to test for zero or blank 
in the Input or Calculation Specifications and the same field is 
used on Output Specifications with 


BLANK AFTER, then that zero/blank indicator will be affected as 
follows: 


RPG II Dialect 


DEFAULT: No effect on zero/blank indicator. 

$ BAZBON: Specified indicator is turned ON after 
the field is blanked during the output 
operations. 


RPG I Dialect 


DEFAULT: Specified indicator is turned ON after 
the field is blanked during the output 
operation. 

SNBAZBON: No effect on zero/blank indicator. 


RPG I And RPG II Dialects 


If more than one indicator is assigned to the same field 

as a ZERO/BLANK indicator (on different Input or Calculation 
Specifications), then only the first one assigned is turned 

ON when the field is blanked out. When an array or array ele- 
ments are output with BLANK AFTER, zero/blank indicators are 
not changed. 


When the specified field is a table name, the element that 


satisfied the last successful LOKUP operation is blanked or 
zeroed. 
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40-43 
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END POSITION 


This field is used to specify the location of a field within an 
output record. Only the location of the rightmost position is 
specified; the number of positions to the left of that location is 
determined by the length specified previously for the field. Space 
must also be left to allow for any editing symbols (edit codes or 
edit words) that may be entered, The end position must not exceed 
the record length specified for the file,except in the special case 
where an * is entered in column 40. 


To print fields on a card in a position other than the one assigned 
by using the *PRINT specification, enter an asterisk in column 40 
and proceed as follows: 


a. Enter the field name to be printed in the Variable Name 
field, or enter a literal in columns 45-70. A variable 
can be edited by means of an edit code or edit word. 


b. Enter the end position for the field in columns 41-43, 
right-justified. Leading zeroes are not required. 


Table 10-2 Illustrates the results obtained when the various edit 
codes are used to edit a two decimal position field whose value is a 
negative (-3.12). The Output Specifications specify an ending 
position of 12. 
Table 10-2. Effect of Edit Codes on End Position 

Output Print Position: 

5/6] 7/8 | @ | 20 [22 | 
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0 
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Coe 
Soe 
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SCRE Eh 
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e 
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BEEEE 
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* ~- Represents a negative O. 
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PACKED OR BINARY 


This field is used to specify that a numeric output field is to be 
written in packed decimal or binary format. Packed decimal and 
binary fields should not be printed because the resultant printout 
will be meaningless. 


Valid entries for this field are: 


Definition 


Field is to be written in 
alphanumeric or unpacked 
decimal format. 


Field is to be written in 
packed decimal format. 


Field is to be written in 
binary format. 


When the letter B is specified to indicate binary format, the 
length of the numeric field that is to be written cannot exceed 
nine bytes, and the following rules apply: 


a. Numeric output fields that have a length of one digit to 
four digits inclusive are converted to 2-byte binary fields. 


b. Numeric output fields that have a length of five digits to 
nine digits inclusive are converted to 4-byte binary 
fields. 


ec. Output in binary format is only allowed for disk, tape, or 
SO0-column card devices. 


d. Arrays, tables, array elements, and numeric fields can be 
specified. 


Column 44 must be left blank: 


a. When an asterisk (*) appears in column 40 of the same Out- 
put Specification line. 


b. For fields that precede an *PRINT specification for a 
card file. 


c. For fields that precede an *PLACE specification for a 
card or printer file. 


ad. For alphanumeric fields. 
e. When a constant is specified. 
f. When an edit code is specified. 


g. When an edit word is specified. 
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45-70 
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CONSTANT OR EDIT WORD 


Constants or Edit Words are entered in this field. A description 
of each is provided in the paragraphs that follow. 


Constants 


Constants are literals usually used for such things as page head- 
ings, and contain information that is not changed by an operation. 
Constants will appear exactly as written in the Output—Format Spec- 
ifications, in the position specified. The following rules must be 
observed when forming constants: 


a. The VARIABLE NAME entry must be left blank. 


b. Constants must be left-justified, enclosed in apostrophes, 
and no more than 24 characters in length. 


c. If an apostrophe is to appear in the constant, two consec- 
utive apostrophes must be coded for each apostrophe re- 
quired. In reference to the end position, the two 
apostrophes are to be counted as one. 


d. Numeric data may be used as a constant, but must still be 
enclosed in apostrophes. Note that this is an alpha- 
numeric literal composed of numeric characters. 


The example in figure 10-12 uses the Line Printer Spacing Form to 
illustrate the coding of output constants. 


Edit Words 


Edit words give a program more adaptability than edit codes when 
editing numeric data fields. These data fields are made more 
meaningful and easier to read by inserting one or more of the 
following characters: 

a. Comma (,) 

b. Slash (/) 

c. Decimal point (.) 

d. Dollar sign ($) 

e. Asterisk protection (*) 

f. Zero (0) 

g. Credit field identifier (CR) 

h. Negative field identifier (-) 

i. Constants 
When a numeric data field is to be edited, an edit word (sometimes 
called an edit mask) must be placed in columns 45-70 of the Output- 


Format Specifications. The edit word must begin in Column 26, be 
enclosed in apostrophes, and be no more than 24 characters in 
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Coding of Output Constants 


Figure 10-12. 


and the 


ending apostrophe must be coded in the column following the last 


The first apostrophe must be coded in column 45, 
character of the edit word. 


length. 


Edit Word Rules 


The following rules must be observed when using edit words: 


Column 38 must be blank when edit words are used. 


a. 
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b. A numeric data field name entry must be made in columns 
32-37. 


c. An end position must be specified in columns 40-43. 


d. Edit words must be enclosed in apostrophes and must not 
exceed 24 characters in length. 


e. Any valid, printable RPG character can be used in an edit 
word. The following characters have special uses when 
placed in specific positions within the edit word: 


~ blank , comma 

O zero CR credit symbol 

$ dollar sign * asterisk 
decimal point & ampersand 


- minus sign 


f. When an edit word is used, automatic suppression of all 
high-order zeroes within the data field occurs unless a 
zero or asterisk is specified in the edit word. When zero 
is specified, the last leading zero in the field is re- 
placed by a blank (%). When an asterisk is specified, the 
last leading zero in the field is replaced by an asterisk. 


g. The number of replaceable characters in an edit word 
Should be equal to the length of the field that is to be 
edited, with the following exceptions: 


1. When the floating dollar sign is used, an extra space 
may be left in the edit word to ensure that the dollar 
Sign is printed when the numeric data field is full. 


2. An extra space may be left in the edit word when zero 
suppression is not wanted. All other editing will be 
performed. 


The replaceable characters and their meanings are: 


Replaceable 
Character Meaning 


0 Zero suppression. 
Asterisk fill. 
Blank. 


Floating dollar sign (if 
it appears immediately to 
the left of zero suppress 
character). 


om 


h. Fixed dollar signs, decimal points, commas, ampersands, 
negative signs (CR and —-), and constant information are 
not replaceable characters. 
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i. Any zeroes or asterisks following the left-most zero or 
asterisk are treated as constants and are not replaceable 
characters. 


j. Any constant to the left of the zero suppression stop 
character, except the floating dollar sign ($), will be 
suppressed unless a Significant digit precedes the 
constant. 


k. When a blank edit word is used, all leading zeroes are 
Suppressed and any sign in the unedited field is removed. 
Negative values are not identified. 


1. When no edit word is used, the data in the output record 
has the same format as the unedited data. When the 
numeric data field contains a negative number, the low- 
order sign position will be printed as an alphabetic 
character (J-R) depending upon the value of the numeric 
data field. 


Zero Suppression 
The elimination of high-order zeroes when printing a numeric data 
field is known as zero suppression. Either full, none, or limited 
zero suppression can be accomplished by the use of an edit word. 
To create the proper edit word a programmer must know: 

a. The maximum size of the field to be edited. 


b. The number of positions to be zero suppressed. 


Full Zero Suppression Coding. The following are recommended pro- 
cedures for full zero suppression coding: 


a. The edit word length is equal to the maximum size of the 
field to be edited, or 


b. Enter a zero in the rightmost position of the edit word, 
and 


c. Leave the remaining position in the edit word blank. 


When full zero suppression is the only editing function desired, 
it is more efficient to use the Z edit code by making the ap- 
propriate entry in column 38 of the Output-Format Specifications. 


No Zero Suppression Coding. The following is a recommended method 


of coding for no zero suppression, but does not apply to RPG I: 


a. Add one to the maximum size of the field to be edited, 


b. Enter a zero in the leftmost position of the edit word, 
and 


c. Leave the remaining positions in the edit word blank. 
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Figure 10-13 illustrates some zero suppression examples: 


45 70 
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Figure 10-13. Zero Suppression Coding Examples 


Limited Zero Suppression Coding. The following conditions will 


accomplish limited zero suppression when: 


a. The edit word length is equal to the maximum size of the 
field to be re-edited. 


b. Enter a zero in the last position that is to be zero sup- 
pressed by the edit word. Allow all other positions in 
the edit word to remain blank. 


Editing with a Comma, Decimal Point, and Fixed Dollar Sign. 


When editing with a comma, decimal point, or fixed dollar sign, 
note the following: 


a. The edit word length is equal to the maximum size of the 
field to be edited plus the number of editing characters 
that are to be inserted. 


b. When a zero suppress "zero" is not included in the edit 
word, full suppression is done automatically. 


c. All commas and decimal points to the left of a zero sup- 
press "zero" will be replaced by blanks when they are not 
preceded by a significant non-zero digit. 


d. The fixed dollar sign will never be suppressed. 
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-0000123456 
+1234567890 
-0000123456 


Editing with an Asterisk 


This special character is used when it is necessary to protect 
printed data from being tampered with by unauthorized persons. 
This is accomplished by printing asterisks (8) in the print posi- 
tions where zeroes and commas have been suppressed. This particu- 
lar technigue is frequently referred to as check protection. 


Asterisk fill/check protect follows the same rules as zero sup- 
pression. Zero suppression replaces all leading zeroes and commas 
with blanks, while asterisk fill/check protect replaces these 
characters with asterisks. 


Figure 10-14 shows examples of check-protect or asterisk-fill 


editing. 
| SOURCE DATA CONSTANT OR EDIT WORD OUTPUT RECORD 
70 
0000123456 ****KF] 234. 56bb 


*000123456 
1234567890 
*#*** 123456 
AKAKKKK, O12*34 
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0000001234 
012345 
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Figure 10-14. Asterisk Fill Coding Examples 


Editing with a Floating Dollar Sign 


A floating dollar sign is frequently used when writing checks. 
This method of check protection places a dollar sign immediately 
to the left of the first significant non-zero digit in the data 
field or the decimal point. Unnecessary commas and zeroes to the 
left of the dollar sign are replaced by spaces in the output area. 


The following rules apply to editing with a floating dollar sign: 
a. An extra space must be left in the edit word for the 
floating dollar sign because a full print position is re- 


quired for the dollar sign when the field is full. 


b. The floating dollar sign is placed immediately to the left 
of the ''zero" used to signify zero suppression. 


c. The floating dollar sign should never be placed immedi- 
ately to the left of a decimal point. 


Figure 10-15 illustrates examples of dollar sign coding with before 
and after images. 
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Figure 10-15. Dollar Sign Coding Examples 


Editing Negative Numbers 

Negative numbers can be represented in the following two ways: 
a. The dash or minus Sign (-). 
b. The credit symbol (CR). 


These symbols that designate negative values are placed on the right 
side of the edit word. The dash requires one additional position in 
the output area, while the credit symbol requires two additional 
positions. 


When the field being edited is positive in value, the negative sym- 
bols are not printed. If a number is negative and the edit word 
does not contain negative editing symbols, the number is edited as 
a positive number. 


Figure 10-16 illustrates examples of negative sign coding. 

Editing with a Slash 

The slash (/) is primarily used to edit date fields, and can be 
used to provide separation of the day, month, and year in order to 
make the printed date more readable. As with all edit words, auto- 
matic zero suppression will be performed. 

When date field editing is desired, it is more efficient to use the 


"Y' edit code entry in column 38 if the field is from 3 to 6 digits 
in length. 
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Figure 10-16. Negative Signs Coding Examples 
Editing to Remove the Sign 


When no edit word is specified and a numeric field is printed and/ 
or punched, the output will have a zone overscore over the low- 
order digit (right-signed) or the most significant digit (left- 
Signed) of the field. This zone represents the sign of the field. 
When the field is positive, the letters A through I will be printed 
and/or punched. If the field is negative, the letters J through R 
will be printed and/or punched. The zone can be eliminated by: 


a. Positive signs: 


1. An edit word that contains any or none of the edit 
characters. 


2. The 'X" edit code entry in column 38. This is the most 
efficient way of removing the positive sign when no 
other editing is desired. 


Ds Negative sign: 


1. An edit word that contains any or none of the edit 
characters. 


For negative fields, an edit word must be used to remove the sign. 


Figure 10-17 illustrates examples of sign removal. 
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Figure 10-17. Sign Removal Coding Examples 
Ampersand 


The ampersand is used to provide a blank space in tne edit word when 
RPG II dialect is specified. Refer to figure 10-18 for ampersand 
coding examples using RPG II dialect. 
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The ampersand appears as an ampersand when RPG I dialect is specified. 
Refer to figure 10-19 for ampersand coding examples using RPG I 
dialect. 


45 


~ 1234567890 MEAT Te Dt) Wo eee] $b12,345,678.90b-bGROSS 
-1234567890 Nig ELE at ol lel | letchile it Patol? $b12,345,678.90b-NET PAY 
-~0000123456 ree at tat lel Lem $4444#4] 234, 56CR 
+000002 NT | Jol iulpisi.jat | igizi.raleelai 4] | | | pppoiss. po2ppppppppp 


031274 


G14088 


S|] el | él | BALAI] Ei] EL TL] | | e3p12p74pLarer 


Figure 10-18. Ampersand Coding Examples (RPG II Dialect) 


4 


| 70 

0000123456 MTEL TTT TT aeerieiieniri(] |] tl |) eppp123456aapRoFiT 
0000123456 MTT TT TTT Beeler) ttt tt bbbb123456bbb&NET 
1234567890 VSB] | [yt 1 | [yt fol te] | AiWletidiPelyi| $b12,345,678.90b-NET&PAY 


614089 
Figure 10-19. Ampersand Coding Examples (RPG I Dialect) 


Editing and Constants 


The edit characters have been described are the standard characters 
used for editing. However, it is possible to use any character in 
an edit word. The specified character will be printed on the output 
report in the position specified whenever a non-zero character has 
been printed to the left of the specified character. 


Figure 10-20 illustrates the use of constants in the edit word. 


OUTPUT RECORD 


bbbb123456bbPROFIT 
bbbbb1 , 234, S56bCRbbNET 
bbbbb1 , 234DOLLARS56CENTS 
bbbbbbbbbbbbbbCENTS 
bbbbODOLLARSOObbbbbbbb 
bbbbLBS .020Z, TAREb~ 
b63-36-9690 

bOHRS .42MINS. bO 'CLOCK 
b9-30-74bLATER 
b9/30/74 


CONSTANT OR EDIT WORD 


LETT TTT ame Rieiir | || tt 
{tol TT tt TT Tel Tf faiete | iwlelr 4 | 
tht tt lott | Dphivlaies! | ielewiris! | 
N/ fol | Ipigielelaieis! | Icleluirisy| | || 1 | 
\| [5] Jol Ipgiuiviaikis! | iclenirisiacle | | | 
\| | | fohipis.| | zi.imareei-4 | | | | | 
Motel te TT ttt 
NO MIRISi.| | MItINIS|. igl""cluiaiclk| 4 | 
MEE IHL |e | lame 4 tt tL 
MAA EE 


SOURCE DATA 


cS 
on 


0000123456 
-0000123456 
0000123456 
000000 
000000 
-000002 

063369690 
0042 
093074 
093074 


GI4090 


ed oe Bae 


-” 


ra 


Figure 10-20. Examples of Constants in the Edit Word 
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75-80 


PROGRAM IDENTIFICATION 


Refer to Section 2 for a complete description. 


EXAMPLES OF EDIT CODES AND EDIT WORDS - RPG II Dialect 


Examples of the use of edit words and edit codes follows. Examples 1 and 2 
are exceptions, as they are unedited. 
The column on the left contains the number of the example. 
The center column contains: 
a. The source data. 
b. The edit word or edit code used. 
c. The edited data. 
The Column on the right contains a brief description of the information in 
the center column. 
Example 
Number Hdit Word or Edit Code Description 
1 0000123456 With no edit word, the sign posi- 
hes ae. ate tion is not converted to a numeric 
character. The first character 
+000123456 is plus zero (+t). 
2 —-0000123456 With no edit word, the sign 
aa ee position is not converted to a 
numeric character. The first 
1000123456 character iS minus zero (!). 
3 OOOOO00000 Blank edit word. Suppresses 
: i leading zeroes. 
4 +0000123456 Blank edit word. Suppresses 
‘ leading zeroes. 
123456 
5 -0000123456 Blank edit word. Suppresses 
: leading zeroes. 
123456 
6 OO000000005 This is the usual approach to ed- 
: 0 ; iting an amount field. The deci- 


.O5 


mal appears between the dollars 
and cents. The commas mark each 
three positions left of the deci- 
mal and the zero suppression 
character (0) immediately left of 
the decimal causes zero suppres- 
Sion to the left. 


10-37 


10-38 


10 


11 


12 


13 


14 


15 


16 


00000000 
QO =! 
1 3 3 


O 


-00000000123 


t et 
’ ? ° 


1.23- 


-0000123456 
' Oo! 
123456 


+0000123456 
! O ! 
000123456 


0000000000 
'§ O &CR GROSS' 
O CR GROSS 


aor 


0000000000 
a, ; ; -OLD BAL' 
OLD BAL 


000000 
ae O. ! 
.00 


000000 
. . Ot 


0 


0000000000 
' , oO * ! 
O*00 
001234 
'O, , 0 ' 
,012,034 


The zero suppression begins where 
the zero suppression character is 
specified and continues left. 


The status portion is printed 
when the field is negative. 
Since no zero suppress character 
is specified, all insignificant 
characters are suppressed. 


The zero suppress specified for 
this position performs no func- 
tion. The sign is lost as there 
is no status specified in the 
edit word. 


The zero suppress specified for 
this position performs no func- 
tion. The sign is lost as there 
is no status specified in the 
edit word. 


From the right of the $ to the 
left of the & is 10 characters. 
Eight zeros are suppressed. 

All zero fields are positive. 


All 10 zeros are suppressed. 
Only the extension portion of the 
edit word is output. 


This is the usual approach to 
editing an amount field. The 
decimal appears between the dol- 
lars and cents. The commas mark 
each three positions left of the 
decimal and the zero suppression 
character (0) immediately left of 
the decimal causes zero suppres- 
Sion to the left. 


All insignificant zeros and 
punctuation are suppressed. 


The first zero suppress character 
is the zero. The * is treated as 
a constant. 


Only the first zero of the source 
data is suppressed. The second 
zero of the edit word is treated 
as a constant. 


er 
hE Sy, 


17 


18 


19 


20 


21 


22 


23 


24 


25 


26 


27 


-000000015 


15- 

000000005 

nt pO a =e 
0.05 


OOOO0000005 
’ , 60 ° -' 
$0.05 


-0012345678 


‘ ; p02 “CREE 


$123,456. 78CR** 


0000000000 
'$ ’ ’ 0. 
$ . 00 
+0000123456 
'$ &- NET! 
$ 123456 NET 
—-0000123456 
'$ &—- NET! 


$ 123456 - NET 


+0000123456 

'S0 - NET' 
$000123456 NET 

-0000123456 


$0 &CR' 
$123456 CR 


-1234567890 
! $0 &CR' 
$1234567890 CR 


QOOO00000005 


($0 . &NET! 


$0.05 NET 


Zero suppression of all insignifi- 
cant zeros to the decimal point. 
Punctuation is Suppressed, also. 


Zero suppression of all insignifi- 
cant zeros to the decimal point. 
Punctuation is suppressed, also. 


Zero suppress with floating dollar 
Sign. The dollar sign will move 
as far right as the zero suppress 
character. 


Floating dollar sign with nega- 
tive amount. Note that the edit 
word has one more replaceable 
position than the length of the 
source data. 


This is not a floating dollar 
Sign as it does not immediately 
precede the zero suppress charac- 
ter. ,All superfluous punctuation 
is suppressed. 


Zero suppression with constant 
$ and an extension portion. 


Same as example 22 with status 
portion reporting negative. 


Only high-order position zero 
suppression. Floating $. 


Floating dollar sign with the 
status portion reporting negative. 


Floating dollar sign with the 
status portion reporting negative. 


Floating dollar sign. 
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10-40 


28 


29 


30 


31 


32 


33 


34 


35 


36 


37 


38 


0000000005 


hy GOL 
$.05 


-1234567890 


’ ’ $0. -' 
$12 ,345,678.90- 


-0001234567 
; ) Oe: 2CRS 
$12 ,345.67CR 


0000001234 
, $0, —~SALES'! 
$,012.34 SALES 


00123456 
hy $0. 
1$,234.56 


0000123456 
3. wee oe 
*KKAKT | 234.56 


-0000123456 
1 ok ! 


*000123456 


+1234567890 
1 ok ! 


1234567890 


-0000123456 
' *! 


***K*KITQ3456 


0000001234 
! * *K ! 


? 3 


KKK 012*34 


012345 
' ,* 0, | 
***120, 345 


Floating dollar sign. 


Note again that in order for the 
$ to appear, the edit word had to 
have one more replaceable charac- 
ter than the length of the 
variable data. 


Note again that in order for the 
$ to appear, the edit word had 
to have one more replaceable 
character than the length of the 
variable data. 


same as example 29 with an exten- 
sion. Note that the placement of 
the zero suppress may cause non- 
esthetic results. 


Since the $ and the O are 
separated by the comma, the $ 
is a constant in the body. 


Check protect asterisk. Sup- 
presses insignificant zeros and 
punctuation, filling each posi- 


tion with *. 


The edit word is 10 characters 
long but the * occupies one 
position. 


* is a replaceable character. 
When there are no insignificant 
characters, it is replaced. 


Check protect asterisk. Sup- 
presses insignificant zeros and 
punctuation, filling each posi- 
tion with *. 


same as example 33. The second * 
is a constant in the body. Non- 
esthetic. 


The & is a replaceable character. 
(See example 45.) The * fills 
all insignificant positions. The 
O is a constant in the body. 


39 


40 


41 


42 


43 


44 


45 


46 


47 


48 


49 


+0000123456 
&CR&NET ' 
123456 NET 


+0000123456 
&CR NET! 
123456 NET 


-0000123456 
&CR NET' 
123456 CR NET 


-0000123456 
&- NET! 
123456 - NET 


0000123456 
&NET&CR ' 
123456 


-0000123456 
&NET&CR' 
123456 NET CR 


-~1234567890 
"S&C, ; . CR! 
$ 12,345,678.90CR 


+0000123456 
*,  *CR*K! 


? 3 


*AKAKI 234,56 a 


-0000123456 
*  *CR**! 


? ) 


AKKAKL 234, 56*CR** 


-1234567890 
'S& , =, O 


~1234567890 
$e, =, 0 


&-GROSS' 
$ 12,345,678.90 -GROSS 


&-NET PAY' 
$ 12,345,678.90 -NET PAY 


Ten position field into ten po- 
Sition body. The ampersands are 
for spacing only and are not 
printed. 


Ten position field into ten po- 
Sition body. The ampersands 
are for spacing only and are 
not printed. 


Same as example 40 with status 
reporting negative. 


Same as example 40 with status 
reporting negative. 


The extension, NET, does not out~ 
put because the status reports 
positive. NET is interpreted by 
the generator as part of the 
status, not the extension, Re- 
verse the order (CR&NET) and the 
word will function properly. 


Proof of 43, 


Constant $. & for spacing only. 
Status reports negative. 


First * is check protect. Sec~ 
ond * is part of status, Third 
and fourth * are extension. 


Same as example 46 with status 
reporting negative. 


Constant $. & for Spacing. Zero 
suppress. & for spacing. Status 
reports negative. Extension con- 
tains GROSS. 


Same aS example 48. Extension 
contains NET PAY. 


10-41 


10-42 


00 


ol 


ola 


o2 


o3 


an 
> 


ore) 


56 


o7 


58 


-0000123456 
"S&C, , *. CR’ 
$**KKAKK] | 234. 56CR 


+000002 
' 0 LBS.& OZ.TARE&-' 
OLBS. 02 
+000002 
' OLBS.& - OZ. TARE' 


OLBS. 02 OZ. TARE 


031274 
' & & S&LATER' 
3 12 74 LATER 


0000123456 


; &&PROFIT' 
123456 PROFIT 


a 


; ; . &CR NET' 
1,234.56 CR NET 


0000123456 
, , DOLLARS CENTS' 
1, 234DOLLARS56CENTS 


000000 
DOLLARS CENTS’ 
CENTS 


000000 
'" , 0 DOLLARS CENTS&CR' 
ODOLLARSOO 


-000002 
; OLBS. OZ.TARE&~' 
LBS .020Z.TARE — 


Constant $. Replaceable &. 
Check protect & substituted for 
replaceable characters, insig-~ 
nificant zeros and punctuation. 


Supress first three zeros of 
source data. Output fourth 
zero. Output the constant, 
LBS. Space across the &. [n- 
sert the 02. Report the status 
aS poSitive. For more mean- 
ingful output, see example Sla. 


The significant difference be- 

tween this example and the pre- 
vious one is that what is meant 
to be the extension is located 

after the status portion. 


Special zero suppression is not 
Specified so zeros are auto-~ 
matically suppressed. The 
ampersands force the source 
data to be spaced. No status. 


Automatic zero Suppression. 
No status. Extension. 


Automatic zero Suppression. 
Status reports negative. 
Extension. 


Automatic zero suppression. 
Insert significant punctua- 
tion. Space across constants 
until the end ot the source 
data is reached. 


Automatic zero suppression 
also suppresses insignificant 
constants in the body of the 
edit word. CENTS is the ex- 
tension. 


Suppress three zeros of the 
source data. Since the status 
reports positive, CENTS is 

not printed. Extension must 
be after status, if there is 

a status portion. 


Same aS example 51. See ex- 
ample Sla for more readable 
output. 


fo 


O° 


59a 


60 


61 


62 


63 


64 


65 


66 


67 


t 


' 


! 


t 


063369690 
O foes _ ! 
63-36-9690 


063369690 
O as ae ! 
063-36-9690 


0042 
O HRS. MINS.&0' 'CLOCK' 
OHRS.42MINS. O'CLOCK 


093074 
- - &LATER' 
9-30-74 LATER 


093074 
a rk 
9/30/74 
093074 
Edit Code 
9/30/74 


09307 
Edit Code 
9/30/7 


0930 
Edit Code 
9/30 


093 
Edit Code 
9/3 


+OQOO000000000 
Hdit Code 


One method of editing a social 
security number. If the high 
order zero is not to be sup- 
pressed, see example 59a. 


When the high-order zero is not 
to be suppressed, specify the 
edit word with one extra posi-~ 
tion in the first portion, and 
zero suppress that position. 


Zero suppress high-order posi- 
tion only. Since the apostrophe 
is used to delimit edit words 

and constants, if printing the 
apostrophe is desired, it must 

be specified two times for each 
time it is to appear in the out- 
put. Example Sla could be prof~ 
itably used here for greater read- 
ability. 


Same type editing as used in ex- 
ample 59 with an extension por- 
tion added. Automatic zero sup- 
pression. 


Another method of editing a 
date field. 


Y is used for editing date fields. 
The largest field that may be 
edited with the Y is six digits. 


Y edit of a five-digit date 
field. 


Y edit of a four-digit date 
field. 


Y edit of a three-digit date 
field. 


1 edit of ten-position field. 
Commas and zero balances to 
print. No sign. 


10-43 


1Q-44 


68 


69 


70 


71 


72 


3 


74 


79 


76 


77 


78 


79 


80 


+O0000000000 
Edit Code 


+Q0000000000 
Edit Code 
O 


+O0000000000 
Edit Code 


+0000000000 
Edit Code 
0000000000 


+Q000000000 
Edit Code 


-0000000000 
Edit Code 
0 


—-OQO000000000 
Edit Code 


~QO0O00000000 
Edit Code 

O 
-—-OQOO000000000 
Edit Code 


-0000000000 
Edit Code 

O 
—-0000000000 
Edit Code 


~OQ0O000000000 
Edit Code 
OOO0O0000000 


—-O0000000000 
Edit Code 


2 edit of ten-position field. 
Commas to print. No zero balance 
or sign. 


A edit of ten-position field. 
Commas and zero balance to 
print. CR for status report. 


B edit of ten-position field. 
Commas to print. No zero 
balance. CR for status report. 


X edit of ten-position field. 
Remove plus sign from field. 


Z edit of ten-position field. 
zero suppress. 


1 edit of ten-position field. 
Commas and zero balance to 
print. No sign. 


2 edit of ten-position field. 
Commas to print. No zero balance 
or sign, 


A edit of ten-position field. 
Commas and zero balance to 
print. CR for status report. 


B edit of ten-position field. 
Commas to print. No zero 
balance. CR for status report. 


J edit of ten-position field. 
Commas and zero balance to 
print. - for status report. 


K edit of ten-position field. 
Commas to print. No zero 
balance. - for status report. 


X edit of ten-position field. 
Remove plus sign from field. 
Since all zero value fields 
are treated as positive, the 
X edit code does not work in 
this case. 


Z edit of ten-position field. 
Zero suppress. 


81 


82 


83 


84 


85 


86 


87 


88 


89 


90 


91 


92 


+QO000000000 
Edit Code 
-00 


+0000123456 
Edit Code 
1,234.56 


+0000123456 
Edit Code 
1,234.56 


+0000123456 
Edit Code 
1234.56 


+0000123456 
Edit Code 
1234.56 


+0000123456 
Edit Code 
1,234.56 


+0000123456 
Edit Code 
1,234.56 


+0000123456 
Edit Code 
1234.56 


+0000123456 
Edit Code 
1234.56 


+0000123456 
Edit Code 
1,234.56 


+0000123456 
Edit Code 
1,234.56 


+0000123456 
Edit Code 
1234.56 


1 edit of ten-position field, 
with two implied decimals. 
Commas and zero balance to 
print. No sign. 


1 edit of ten-position field 
with two implied decimals. 
Commas and zero balance to 
print. No sign. 


2 edit of ten-position field 
with two implied decimals. 
Commas to print. No zero 
balance. No sign. 


3 edit of ten-position field 
with two implied decimals. 
Zero balance to print. No 
commas. No sign. 


4 edit of ten-position field 
with two implied decimals. No 
commas. No zero balance. No 
Sign. 


A edit of ten-position field 
with two implied decimals. 
Commas and zero balance to 
print. CR for status report. 


B edit of ten-position field 
with two implied decimals. 
Commas to print. No zero 
balance. CR for status report. 


C edit of ten-position field 
with two implied decimals. No 
commas. Zero balance to print. 
CR for status report. 


D edit of ten-position field 
with two implied decimals. No 
commas. No zero balance. CR 
for status report. 


J edit of ten-position field 
with two implied decimals. 
Commas and zero balances to 
print. - for status report. 


K edit of ten-position field 
with two implied decimals. 
Commas to print. No zero 
balance. - for status report. 


L edit of ten-position field 
with two implied decimals. No 
commas. Zero balance to print. 
- for status report. 


10-45 


10-46 


93 


94 


95 


96 


97 


98 


99 


100 


101 


102 


103 


104 


+0000123456 
Edit Code 
1234.56 


+0000123456 
Edit Code 
0000123456 


+0000123456 
Edit Code 
123456 


~0000123456 
Edit Code 
1,234.56 


-0000123456 
Edit Code 
1,234.56 


~0000123456 
Edit Code 
1234.56 


—-0000123456 
Edit Code 
1234.56 


-0000123456 
Edit Code 
1,234.56CR 


-~0000123456 
Edit Code 
1,234.56CR 


-0000123456 
Edit Code 
1234.56CR 


-0000123456 
Edit Code 
1234.56CR 


-~0000123456 
Edit Code 
1,234. 56- 


M edit of ten-position field 
with two implied decimals. No 
commas. No zero balance. —- for 
status report. 


X edit of ten-position field 
with two implied decimals. Re- 
move plus sign. 


Z edit of ten-position field 
with two implied decimals. 
“a2ero suppress. 


1 edit of ten-position field 
with two implied decimals. 
Commas and zero balances to 
print. No sign. 


2 edit of ten-position field 
with two implied decimals. 
Commas to print. No zero 
balance. No sign. 


3 edit of ten-position field 
with two implied decimals. No 
commas. Zero balance to print. 
No sign. 


4 edit of ten-position field 
with two implied decimals. No 
commas. No zero balance. No 
sign. 


A edit of ten-position field 
with two implied decimals. 
Commas and zero balance to 
print. CR for status report. 


B edit of ten-position field 
with two implied decimals. 
Commas to print. No zero 
balance. CR for status report. 


C edit of ten-position field 
with two implied decimals. No 
commas. Zero balance to print. 
CR for status report. 


D edit of ten-position field 
with two implied decimals. No 
commas. No zero balance. CR 
for status report. 


J edit of ten-position field 
with two implied decimals. Com- 
mas and zero balance to print. 
- for status report. 


| 


oe. 
- 


105 —-0000123456 K edit of ten-position field 
- Edit Code with two implied decimals. 


4 


Commas to print. No zero 
1,234. 56- balance. - for status report. 
106 -0000123456 L edit of ten-position field 
iy Past: ede with two implied decimals. 
No commas. Zero balance to 
1234. 56- print. - for status report. 
107 ~0000123456 M edit of ten-position field 


with two implied decimals. 


M Edit Code No commas. No zero balance. 


1234.56- - for status report. 
108 —-0000123456 X edit of ten-position field 
X Pait Code with two implied decimals. Re- 
move plus sign. Since the sign 
!000123456 is negative, the sign position 


is output as the graphic repre- 
sentation of the minus sign and 


digit (in this case, ! or minus 
Zero). 
109 —-0000123456 Z edit of ten-position field 


with two implied decimals. 


Z Edit Code 
Zero suppress. 


123456 
Printer File Handling 
An important objective of most RPG programs is the generation of a 
printed report. To help facilitate the production of an easily 
readable report with minimum programming, special features and 


functions have been incorporated into Burroughs B 1700 RPG. 


Page Formatting 


The RPG I and RPG II dialects can both use the Line Counter Specifi- 
‘eations and/or carriage control tapes to control paper movement 


through the printer. However, there are several differences in 


“usage and specification between the two dialects. 


RPG I Dialect. The RPG I dialect uses the skip to channel option. 


Line Counter Specifications are required and must contain at least 
line-channel equations for channel 1 and channel 12. 


The overflow line is the line specified in the line channel equa- 
tions for channel 12. Up to 12 line-channel equations can be speci- 
fied on the Line Counter Specifications form. 


When a different forms length is desired, the length is entered in 
columns 15-19 and FL is entered in columns 18-19 of the Line Counter 


Specifications. Line-Channel equations are required for channels 
1 and 12. Up to nine additional line-channel equations can be 
specified. 


10-47 


10-48 


Whenever a channel number is specified in columns 19-22 of the Out- 
put-Format Specifications, there must be a corresponding line- 
channel equation entry in the Line Counter Specifications. At 
compile time, when a skip to channel is found that does not have a 
corresponding line channel equation, a syntax message is emitted. 
Neither syntax error nor warning is issued if a line-channel 
equation is defined but is not referenced in the Output—Format 
Specifications. 


RPG II Dialect. In RPG II dialect, Line Counter Specifications are 


optional. The default value for form length is 66 lines and the 
default value for the overflow line is line 60. When these default 
values are acceptable, as many as 12 line-channel equations can be 
specified on the Line Counter Specification entry. If the defaults 
are not desirable, then both the form length and overflow line 

must be entered in the first two sections of the Line Counter Spec- 
ification and only 10 line-channel equations can be specified on 
the remainder of the specification line. 


When the line-channel equations are supplied, skip to line will be 
performed as skip to channel. If no line-channel equation is 
supplied, skip to line is performed by Spacing, in the usual 
manner. 


Entries in columns 19-22 of the Output-Format Specifications are 
treated as line numbers. 


End of Page 

The physical end of a page is reached when the vaver become 
tioned in the overflow area. For RPG I this is the area from chan- 
nel 12 to 1 line prior to channel 1. In RPG II it is the first 
line after the overflow line to 1 line prior to line 1. 


When End-Of-Page (overflow area) is sensed during a printer opera- 
tion, one of the following must occur: 


a. Automatic skipping is specified when an overflow indicator 
is not entered in columns 33-34 of the File Description 
Specifications. Since the indicator is not defined, it may 
not be used to condition calculations or output. 


Automatic skipping moves the paper from the overflow area 
to the top of the next page before resuming print opera- 
tions. 


No overflow bookkeeping is available to the user. 


For RPG I the paper is moved from the overflow area to 


Channel 1. 
For RPG II the paper is moved from the overflow area to 
line 6. 

b. Continuous printing is specified when an overflow indicator 


is entered in columns 33-34 of the File Description Speci- 
fications but is not used to condition printer record 
Output. The overflow indicator is defined and may be used 
in Calculation Specifications. If used on the Output- 


7 -eN 


Format Specifications, the overflow indicator must condi- 
tion only field descriptions of printer files. 


c. Overflow operations are specified when an overflow indi- 
cator is entered in columns 33-34 of the File Description 
Specifications and that indicator is used to condition 
record output in the print file. Using the overflow indi- 
cator to condition printer file record output defines 
those lines of print that are to be written during over- 


flow output. It is the user's responsibility to initiate 
skipping based on overflow, as this is not done auto- 
matically. 


When overflow operations are specified, normal overflow output may 
be printed when the overflow output routine in the RPG cycle is 


reached. If fetching was specified (F in column 16 of the record 
description line on the Output-Format Specifications), overflow 
output may be printed immediately: Before the record described on 


the line containing the F in column 16 is printed. This is fetched 
overflow output. 


Overflow Indicators 
Overflow indicators must be used only with printers, and are not 


assigned by default. The assignment of overflow indicators deter- 


mines the type of paper motion and overflow handling that will 
occur. 


a. Overflow indicators not assigned and not used result in 
automatic skipping. In RPG II this is a skip to line 6. 
In RPG I this is a skip to channel 1. 


b. Overflow indicators assigned but not used result in print- 
ing over the perforation. 


c. Overflow indicators assigned and used result in normal 
overflow handling. 


RPG I Dialect. An overflow indicator will turn on: 
a. When a line is actually printed in the overflow area, or 
b. When, as the result of using the overflow indicator as a 
calculation resulting indicator, the overflow indicator 
is set on. 


An overflow indicator will turn off when: 


a. The overflow indicator is used as a calculation resulting 
indicator, and the operation turns it off. 


b. The conditions of the overflow turn off routine are 
Satisfied. Refer to figure 10-21. 


RPG II Dialect. An overflow indicator will turn on when: 


a. The destination of a skip before or a skip after is in the 
overflow area. 
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The destination of space before or a space after is in the 
overflow area. 


A line is actually printed in the overflow area. 


The use of the overflow indicator as a calculation result- 
ing indicator turns it on. 


An overflow indicator will turn off when: 


a. 


The destination of a skip before or a skip after is a new 
page, and the record is not conditioned by the overflow 
indicator. 


The overflow indicator is used as a calculation resulting 
indicator, and the operation turns it off. 


The conditions of the overflow turn-off routine are satis- 
fied. Refer to figure 10-21. 


The overflow indicator is not set off if the new page is reached by 


Spacing. 


Overflow 


The principles used for handling overflow are: 


a. 


Overflow will be performed only once for any single physi- 
cal overflow, whether fetched or performed during the 
narmoa nowrt nF mwa lA orwthAT AR ArT AM wie | mR AR or omeegets Loa iets Sey 


o™ wrth A Ee --td — wo = -m —_ 
normal part of the CyVyYCiF WNEN OVELTLAOW processing is per- 


formed (For example, after total output). 


The RPG program distinguishes between overflow indicators 
which are set during the detail part of the cycle and those 
which are set during the total part of the cycle. If set 
during detail, overflow indicators do not get turned off 
after detail output, but are maintained for one full cycle 
until the next time around. If an overflow indicator went 
on during detail and overflow was fetched, the reason 
overflow doesn't get performed twice (once for the fetch 
and once at normal overflow processing), is because over-' 
flow will only be performed once for each physical over- 
flow. 


If the program overflow specifications leave the printer in 
the overflow area, the cycle will not erroneously do over- 
flow processing again, but remembers that it has already 
been performed for the condition that caused overflow. To 
do overflow processing again, the program must cause 
another physical overflow by printing again in the overflow 
area. 


Overflow indicators can also be controlled in the Calcula- 
tion Section when used as resulting indicators. When an 
overflow indicator is set on in the Calculation Section, 
the effect is exactly the same as if a physical overflow 
condition had occurred on the printer, with the cycle also 
distinguishing whether it has been turned on in detail or 
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Figure 10-21. 
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or total. When an overflow indicator is set off in the 
Calculation Section, the effect is exactly the same as if 
overflow processing had just been performed. 


A composite flow chart of printer overflow operations is shown in 
figure 10-21. 


Sequence Of Printed Output Operations When All Conditioning Indica- 
tors Are Satisfied: 


a. 


b. 


If skip before is specified, call SKIP ROUTINE. 

If space before is specified, call SPACE ROUTINE. 

Call PRINT ROUTINE. 

If skip after is specified, call SKIP ROUTINE. 

If space after is specified, call SPACE ROUTINE. 

If fetching is specified for this line of print, items a 
through e are done once for the fetch (call FETCH OVER- 

FLOW), and again for the line to be printed. 

After all detail output, call OVERFLOW TURN OFF ROUTINE. 


After all total output, if the last record indicator (LR) 
is off, call either: 


1. The OVERFLOW ROUTINE, or 


2. If automatic skipping is specified, call the 
AUTOMATIC SKIPPING ROUTINE. 
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Table 10-3. Effect of Printer Operations on Overflow Indicators 


Destination 
RPG I RPG II 
Overflow Area 
Skip No effect TURN ON 
Space No effect TURN ON 
Print TURN ON TURN ON 
New Page 
Skip No effect On a line not conditioned 
by an overflow indicator 
TURN OFF 
Space No effect No effect 
Print No effect No effect 
Overflow Area Channel 12 to 1 First line after overflow 
line prior line to last line prior 
to channel 1. to line 1. 
Automatic Skip Occurs when an overflow indicator is not 


assigned in the File Description Specifica- 
tion for a printer and is not used in the 
rest of the program. 


Paper is moved Paper is moved from over- 
from overflow flow area to line six. 
area to channel 

rst 


Normal Overflow Output. When the overflow area is sensed (and the 
indicator comes on), and normal overflow output is specified, the 
following sequence of events takes place. If the overflow area is 
sensed during detail calculation exception output: 

a. Complete remaining detail calculations. 


b. Perform detail and heading output not conditioned on the 
overflow indicator. 


c. Read the next record. 
d. If a control break occurred, perform total calculations. 
e. Perform necessary total output not conditioned on the 


overflow indicator. 
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f. Perform total output conditioned on the overflow 
indicator. 


g, Perform heading and detail output conditioned on the 
overflow indicator. 


h. Perform detail calculations. 


i. Perform heading and detail output not conditioned on the 
overflow indicator. 


j. Turn off the overflow indicator. 


When the overflow area is sensed during detail output, the sequence 
is item b through item j. 


When the overflow area is sensed during total calculation exception 
output, the sequence is item d through item Jj. 


Figure 10-22 provides a graphic view of when the overflow indicator 
is turned on or off and when printing is performed. 


Fetched Overflow Output. When the overflow indicator is sensed and 
fetched overflow output is specified, the following sequence of 
events takes place. Before printing the record specified with F 

in column 16 of the Output-—Format Specifications: 


a. Perform total output conditioned by the overflow 
indicator. 


b. Perform heading and detail output conditioned by the 
overflow indicator. 


on Print the record with the F in column 16 that caused the 
overflow routine to be fetched. 


If the overflow area was sensed during detail calculation exception 
output, the remainder of the Sequence is: 


a. Perform the remainder of the detail calculation exception 
output, if any. 


b. Finish the remainder of the detail calculations. 


Perform detail output not conditioned on the overflow 
indicator. 


d. Read the next record. 


If a control break has occurred (item d), perform total 


calculations. 

f. Perform total output lines not conditioned on the overflow 
indicator. 

g. Do not perform overflow output. For exceptions, refer to 


the following subsection titled Multiple Output Lines. 
h. Perform detail calculations. 
i. Perform detail output. 


j. Turn off the overflow indicator. 
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Figure 10-22. Bar Schematic of Printer Overflow Operations 


If the overflow area was sensed during detail output, the remainder 
of the sequence is item c through item j. 


If the overflow area was sensed during total calculation exception 
output, the remainder of the sequence is item e through j. 


If the overflow area was sensed during total output, the remainder 
of the sequence is item f through item Jj. 


Multiple Output Lines. When multiple output lines have been 

specified for any printer, it is possible to continue printing, 
either before or after overflow output, and again arrive in the 
overflow area. If this happens, all overflow output may occur ¢ 
again. 


Examples of overflow coding are shown in figures 10-23 and 10-24. 
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Overflow Coding Example 1 - RPG II 


Figure 10-23. 
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Figure 10-24. Overflow Coding Example 2 -— RPG I 
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SECTION I] 


DOLLAR CARD SPECIFICATIONS 


Dollar Card Specifications accommodate various extensions to the B 1700 RPG 
Language, which cannot be handled on the other specification forms. Dollar 
Cards also allow certain compiler-control options to be set or reset during 
compilation. 


Dollar Cards may appear anywhere within the source deck, as required. The 
standard Dollar Card Specifications form may be used or options can be coded 
on the other specification sheets at the points where they will be placed in 
the source deck, 

FIELD DEFINITIONS 


Refer to figure 1ll-1l in conjunction with the following field definitions for 
the Dollar Card Specifications. 


1-2 PAGE 

Refer to Section 2 for a complete description. 
375 LINE 

Refer to Section 2 for a complete description. 
6 FORM TYPE 


This field may be left blank or used to contain the form type of 
the specification in which the option is to be inserted. 


7 $ OPTION 
A $ sign must appear in this field. 

8 NOT 
This field is used to specify that the option entered in the KEY 
WORD field is set ON (NOT = blank) or OFF (NOT = N). Certain options 


cannot be turned OFF; these are indicated under the KEY WORD entry 
description. Valid entries for this field are: 


Blank Specified option is "set". 
N Specified option is "reset", 


ii-l 


G-LT 


Burroughs B 1700 RPG 
PROGRAM !D PAGE OF 
PROGRAMMER DATE 
1 2 Cie O 75 80 
DOLLAR CARD SPECIFICATIONS PROGRAM 
NOT USED 
FORM TYPE 


NOT 


Ae 6 May contain the form type of the specification 
in which the option is to be inserted. Entries: 
Blank, F, E, L; I; C, or 0 

Bo 8 Specifies if the option entered in the KEY 
WORD field is to be set ON or OFF. Entries: 
Blank or N. 


C. 9-14 Names the option to be used, left~justified. 
For entries, see the descriptions in the text. 


D. 15-24 Used to specify a value to be associated 
with the entry in the KEY WORD field. Not 
always required. Entries: Alphanumeric, left- 
justified and numeric, right~justified. 


E. 15-74 Used for documenting and commenting. 
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Figure 11-1. Dollar Card Specifications Summary Sheet 


¥ 


KEY WORD 


This field is used to name the option to be set or reset (according 
to entry in NOT field). The option name must be entered left- 
justified in the field. Options fall into three categories: file 
identification extensions, RPG extensions, and compiler-directing 
options. 


The following B 1700 dollar options may or may not be valid on 
other systems and vice versa. Unrecognized dollar cards will be 
ignored, but a warning will be emitted. 


File Identification Extensions 


The following extensions are used to specify the external names 
for files described in the File Description Specifications. They 
must immediately precede the file in the File Description Speci- 
fications to which they refer. None of the options may be reset. 


$ PACKID specifies the pack name of a disk file. Similar 
to $ FAMILY and $ FILEID. Default of blank name 
and MCP assumes systems pack. This entry should 
be included to ensure correct handling of the 
file by the MCP. 


$ FAMILY Specifies the external main directory family name 
associated with the file. The value field con- 
tains the name (one to 10 characters left- 
justified). 


$ FILEID Specifies the external file ID associated with 
the file. The value field contains the name 
(one to 10 characters left-justified). 


$ DISKID Same as $ PACKID. 
An external name may be in one of the following four forms: 


family name 

family name/file ID 

disk pack ID/family name/file ID 
disk pack ID/family name/ 


The internal name of each file is the filename assigned in the File 
Description Specifications. 


Unless the FAMILY specification is used, the family name will be 
the same as the internal filename, that is, the filename speci-~ 
fied on the File Description Specification. Therefore, if none of 
the file identification extensions are used the internal and ex- 
ternal name will be the same, i.e., the family name. Figure 117-2 
illustrates how the insertion of the different file identification 
extensions before a file called MASTER affects that file's external 
name, 
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EXTERNAL NAMES 
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Figure 11-2. Coding File Identification Extensions —- Dollar Sign Options 


RPG Extensions 


The following options may appear only within the File Description 
Specifications, except RSIGN, and must immediately precede the 

specification line describing the file to which they apply. None 
of the following operations may be reset except RSIGN and ONEPAK. 


$ AREAS Specifies the maximum number of areas to be allocated 
for the file (disk files only). The VALUE field con- 
tains an integral value (right justified, leading 
zeros optional). A system-dependent default value of 
25 is assumed unless specified by use of this dollar 
option. Maximum number of areas that may be assigned 
is 105. 
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$ RPERA Specifies the maximum number of logical records that | 
will be written in each disk area. The VALUE field ek 
contains an integral value (right-justified, leading .~ 
zeros optional). The default value assigned is the 
first multiple of the records-per-block that is equal 
to or greater than 9500. 


$ OPEN The use of this option results in the explicit open 
of a file at Beginning-of-Job time. A $ OPEN card 
must appear before the File Specification card for 
each file that is to be explicitly opened at BOJ 
time. 


The default condition is as follows: 


At BOJ time, the primary and all secondary 
files are opened, as well as all input or 
update indexed files. Demand and output 
files are implicitly opened upon the first 
read from, or write to, them. 


$ CLOSE The use of this option forces a serial input file to 
remain open until the program reaches End-of-Job. A 
$ CLOSE card must appear before the File Specifica- 
tion card for each file that is to remain open until 
EOJ. The default is for each serial input file to 
be explicitly closed upon encountering the End-of- 
File. 


$ AAOPEN Is a file OPEN time option used to set a bit in the 
program's code file File Parameter Block for this file 
and to allocate all disk space areas at the time the 
file is opened. 


$ ONEPAK Specifies that this particular file must be contained 
on one disk. 


$ CYL Allocates file areas starting on an integral cylinder 
boundary. 
$ DRIVE Allocates a physical drive to that particular file. 


Applies only to Systems disks. VALUE field must be 
0-15. Option may not be reset and is not related to 
PACKID. 


$ REFORM Input and update disk files are assumed to have the 
record and block sizes specified in the disk file 
header, regardless of those specified in the File 
Specification card. The use of the $ REFORM option 
causes the record and block sizes declared in the 
File Specification card to override those in the disk 
file header. For example, the DEFAULT bit in the 
File Parameter Block is reset. 


A $ REFORM card must appear before each input or 
update disk file where it is necessary to override the 
record and block sizes specified in the disk file 
header. 
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$ REORG 


$ RSIGN 


$ DNAME 


$ CHECK 


$ MERGE 


Specifies a specialized method of sorting indexed files 
and will be invoked at End-of-Job. The REORG feature 
only sorts the additions and then merges them, in 
place, into the master file. This method of sorting 
should decrease the sort time and the temporary disk 
area required. The VALUE field (columns 25-46) must 
contain the external file identifier of indexed file. 
The VALUE field has the following naming convention: 


disk pack ID/family name/file ID 


The use of the $ REORG option results in the following 
program execution at EOJ: 


INDEXED FILE - RPG/REORD 
"B'" TNDEXED FILE - RPG/REORG 
Information deleted 


Indicates to the compiler the location of the sign of 
external numeric data items. When set, all signs are 
assumed to be in the low-order (rightmost) position of 
the field; when reset, all signs are assumed to be in 
the high-order (leftmost) position of the field. This 
option may be set and reset at different points in the 
source program, allowing different fields to have dif- 
ferent sign positions. If the option is used, it will 
override the sign position specified in the Control 
Card Specifications. 


The value field contains an alpha mnemonic for the 
physical hardware device to which it refers. 


Causes all patching records to be sequence checked. 
Syntax errors are generated for any patch record that 
is out of sequence. 


If the $ CHECK option is not specified, then sequence 
warnings are issued. The warning is denoted by an "8S" 
appearing to the left of the record's sequence number 
on the output listing. 


Causes the following records in the patch file to be 
merged with an existing source file. The source file 

is from a source other than a card reader. The source 
file is expected to reside on tape or disk (disk is 
default). The internal file name is SOURCE and external 
file name is SOURCE. The default blocking option is 
set. 


If it is desirable to change the external file name or 
input device from disk to tape, then a label equation 

card must be used. The $ NEW option can be used with 

the $ MERGE option to create a new output source file 

with patches. 


$ NEW 


$ SEQ 


$ DMSNAM 


$ DIGITS 


$ SECURE 


The sequence fields are used to control the merge 
sequence. If the sequence field of a patch record and 
disk record match, then the patch record replaces the 
disk record; otherwise, patch records are merged with 
the tape or disk file. The existing source file re- 
mains unchanged. 


A "P" is appended to the left of the record's sequence 
field on the source listing, specifying that the image 
is a patch record. 


Creates new output source files. If $ MERGE option is 
used, then the patches are included in the new source 
file. The new source file is created on disk or tape 
(disk is default). Internal file name is NEWSOURCE and 
external file name is NEWSOURCE. If it is desirable to 
change the external file name or input device from disk 
to tape, then label equations cards must be used. 


Starts sequencing the subsequent source lines on the 
output listing. If $ NEW option is used, then the sub- 
sequent new source file is sequenced. The starting 
sequence number begins with the number contained in the 
sequence field (columns 1-5) of the $ SEQ option. If 
the sequence field is blank, the starting sequence num- 
ber begins with zero. The subsequent records have 
sequence numbers which are incremented by the value con- 
tained in columns 22-24 of the $ SEQ option. If columns 
22-24 are blank, then O10 is assigned. 


Specifies that the compiler print the DMS library files 
used for the compile. This option is set on by DEFAULT. 


Causes RPG indexed files to use eight-digit relative 
record numbers in the tag file. The default is six 
digits. With this option, RPG indexed files are com- 
patible with COBOL indexed files. The $ DIGITS conm- 
piler option must be specified prior to each file's 
File Description Specification for which an eight-digit 
relative record number tag file is required. 


Causes RPG programs to access and create single-named 
tag files when the program is executed using the 
USERCODE/PASSWORD pair implemented on the B 1800/B 1700 
file security system. 


Only one of the following four $ RPG Extensions may be used per file 
specification: 


$ PTAPE 
$ TAPE7 
$ TAPEQ 


$ CASSET 


Modifies READER or PUNCH to apply to a paper tape reader. 
Modifies a tape device to 7-track. 
Modifies a tape device to 9-track. 


Modifies a tape device to a cassette. 
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Compiler-Directing Options 


The following options may appear anywhere within the B 1700 RPG 
Source Program. These options direct the compiler to perform 
specific functions. All of the following options may be "reset". 


‘$ LIST 


$ LOGIC 


$ MAP 


$ NAMES 


$ BAZBON 


$ ZBINIT 


Specifies that the compiler produce a single spaced out- 
put listing of the source statements with the error or 
warning messages. This option is set "on" by default. 
Resetting to "off" will not inhibit the errors or warn- 
ing messages from printing. 


Specifies that the compiler produce a single-spaced 
listing of each source specification line, followed 
immediately by an intermediate code used to generate 
RPG S-code. The listing is produced after the NAMES 
listing (if the NAMES option is set), and does not 
include addresses or bit configurations, but only the 
opcodes and logical operands of the program. 


Specifies that the compiler produce a single-spaced 
listing, detailing the program's memory utilization. 
The MAP listing is produced after the LOGIC listing (if 
the LOGIC option is set). 


Specifies that the compiler is to produce a single- 
spaced listing of all assigned indicators, file names, 
and field names. The attributes associated with each 
file and field are also listed. The NAMES listing is 
produced immediately after the normal source input 
listing. 


Specifies that if an indicator is assigned to a field 
to test for ZERO or BLANK in the Input or Calculation 
Specifications and the same field is used in the Output 
Specifications with a BLANK AFTER designation, that 
indicator will be turned ON after the field is blanked 
during the output operations. The maximum number of 
associations is 200. Should a N (NOT) be specified in 
column 8, the indicator will be turned OFF, overriding 
the original RPG 1 or RPG II specifications. The 
default values are as follows: 


RPG I BAZBON is set 

RPG II BAZBON is reset 
Specifies that all ZERO or BLANK indicators are initial- 
ized ON at Beginning-of-Job. The maximum number of 
associations is 200. If a N (NOT) is specified in 
column 8, then the ZERO or BLANK indicators are initial- 
ized OFF regardless of the specifications for RPG I or 
RPG II. The default values are as follows: 

RPG I ZBINIT is set 

RPG II ZBINIT is reset 
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$ STACK 


$ XREF 


$ PARMAP 


$ SUPR 


$ XMAP 


$ LIBR 


$ NEWID 


$ VOID 
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If infrequent stack overflow conditions occur during 
program execution, the user may change the stack size 
of the resultant program. This should be used only 
when a legitimate STACK overflow condition has occurred 
(i.e., nested subroutines more than 8 deep). The 
default stack size is 313 bits which will allow 8 
entries in the stack. To increase the stack size, add 
39 bits to the default size of 313 for each additional 
stack entry. 


Allows the RPGXRF file to be created during compilation 
for use as input to the RPG/XREF program. The XREF 
option must be placed at the beginning of the RPG source 
program, prior to the first File Specification or Con- 
trol Card Specification. At completion of the compila- 
tion, the RPG/XREF program is automatically executed. 
The program generates the cross-reference listing. 


Produces a singie-spaced listing of the compiler- 
generated paragraph names, source statement numbers, and 
actual segment displacements of the emitted code. This 
listing may be used to relate to the LOGIC listing. 


Specifies that the compiler is to suppress all warning 
messages from the source program listing. (Error mess- 
ages still print.) 


Specifies that the compiler print a single-spaced list- 
ing of all the code generated, complete with actual bit 
configurations and addresses. Combined with the listing 
produced by the LOGIC option, complete information about 
the generated code of the program is available. The 
XMAP listing is produced after the MAP listing if the 
MAP option is set. 


Copies source records from a library file located on 
tape or disk to a new or merging file. This option can 
reference different library files. Columns 15-24 con- 
tain the Pack-Id; columns 25-34 the Multi-File-Id; 
columns 35-44 the File-Id; columns 45-49 the starting 
sequence number in the library file (optional); and 
columns 50-54 the ending sequence number in the library 
file (optional). 


An "L" is appended to the record image and is placed to 
the left of record's sequence field in the output list- 
ing. The "L" specifies that the record is from a 
library source file. 


Causes the six character identifier specified in columns 
15-20 of the $ NEWID option to be placed in columns 75-80 
of the subsequent lines in the output listing. If the 

$ NEW option is used, then the six-character identifier 
is also placed in columns 75-80 of the subsequent source 
records in the new source file. 


Deletes records of the source file on the output listing. % 
If the $ NEWID option is used, then the records are 
deleted in the new source file. Source lines or records 


15-24 


29-74 


79-80 


are deleted up to and including the five-digit void limit. 
If the void limit field (columns 20-24) is blank, then 
only the source record with sequence number matching the 
sequence field $ VOID option is deleted. 


$ PAGE Causes the RPG compiler to eject a page on the output 
source listing. This option can appear anywhere in the 


RPG source program and is especially useful for separat- 
ing subroutines on the output source listing. 


VALUE 

This field is used to specify a value to be associated with the option 
entered in the KEY WORD field. Not all options require a value; those 
that do are so designated in the individual descriptions of each 
option (KEY WORD field). 

All alphanumeric values must be entered left-justified in the VALUE 
field. All numeric values must be entered right-justified in the 
VALUE field; leading zeros are optional. 

COMMENTS 


This field is available for inclusion of comments and documentary 
remarks, and may contain any valid EBCDIC characters. 


PROGRAM IDENTIFICATION 


Refer to Chapter 2 for a complete description. 
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SECTION 12 
COMPILER OPERATION 


The Burroughs RPG Compiler is an integral part of the B 1700 software system. 
It is treated in many respects as merely another program to be executed and 
can be multiprogrammed with other programs, or with itself. 


SOURCE INPUT 

An input card file labeled RPG/CARD is the only source required by the com- 
piler. All source input must be punched in the EBCDIC character set unless 
it is translated on input. 

If it is desired that the input file be assigned to a device other than the 
card reader, then this may be achieved by using the FILE statement. This, 
of course, means that the device from which the source file is read should 
have the same record length (80 characters) and blocking factor (1) as the 
device from which the compiler expects to read the file. An RPG/VECTOR file 


assigned through the FILE statement should have a record length of 96 and a 
blocking factor of l. 


CONTROL CARD SYNTAX 


The format of the MCP control cards is as follows: 


fr Srna | 

? COMPILE <program~name> WITH RPG FOR SYNTAX <control-attributes> 
SAVE 

? CHARGE <charge~number> 

? MEMORY <memory~size> 

? PRIORITY <priority~-number> 

? FILE <internal-file-name> <file-attributes> 

? DATA RPG/CARD 
source specification cards 

? END 

} ? DATA RPG/VECTOR 


compile-time table cards 
? END 


All of the above control cards are fully discussed in the B_1700 System 
software Operational Guide, Form No. 1068731. The format of the four op- 
tions of the COMPILE statement are discussed here. 


COMPILE This is a "compile and go" operation. If the 
compilation is error-free, the MCP schedules 
the object program for execution. The program 
will not be entered into the Disk Directory, 
and must be recompiled to be used again. The 
"compile and go" is the default option of the 
COMPILE statement. COMPILE may be abbreviated 
as CO. 


COMPILE TO LIBRARY This option will leave the program object file 
on disk and will enter the program~name into 
the Disk Directory after an error-free com- 
pilation. The program is not scheduled for 
execution. LIBRARY may be abbreviated as LI. 


COMPILE SAVE This option combines the execute and library 
options. The MCP will enter the program- 
name into the Disk Directory and will leave 
the object program file on disk. The MCP 
will also schedule the program for execution 
after an error-free compilation. The program 
remains in the Disk Directory. SAVE may be 
abbreviated as SA. 


COMPILE FOR SYNTAX This option provides a diagnostic listing as 
the only output. This option does not enter 
the program~name into the Disk Directory or 
leave the program object file on disk. SYNTAX 
may be abbreviated as SY. 


The following sample deck could be used to compile a source program contained 
in punched card to library: 


? COMPILE PROGRAM/TEST1 WITH RPG TO LIBRARY 
? CHARGE 12345 
? DATA RPG/CARD 
source specification cards 
? END 


The following sample deck could be used to compile a source program contained 
on magnetic tape for syntax: 


? COMPILE AAA/BBB/TEST2 WITH RPG FOR SYNTAX 
? FILE CARDS NAME = RPG/SOURCE DEFAULT TAPE 
2? END 


NOTE 


For the effect of the DEFAULT option, re- 


fer to the B 1700 System Software Operational 
Guide, Form No. 1068731. r 


VECTOR FILE INPUT 


The vector input files consist of compile-time and pre-execution-time vector 
files, both of which are described in the paragraphs that follow. 


COMPILE-TIME VECTOR FILES 


If the program requires that table or array files be included during compila- 
tion, the compiler requires an input card file labeled RPG/VECTOR. This file 
may be input from a medium other than cards, through use of the FILE state- 
ment. Card input may be punched in either the BCD (96 column card) or EBCDIC 
(80 column card) character set. 


Vector files must be entered in the same order as specified in the Extension 
Specifications, and each file must contain exactly the number of records 
specified. No separators define the end of one vector and the beginning of 
the next; records are read into one vector until that vector is full. Filling 
of the next vector is begun from subsequent records. 


The following sample deck could be used to compile a source program (with 
compile-time vector input) contained on cards to library: 


? COMPILE AAA/TEST3 WITH RPG TO LIBRARY 
? DATA RPG/CARD 
source specification cards 
? END 
? DATA RPG/VECTOR 
table file cards 
? END 


PRE-EXECUTION-TIME VECTOR FILES 


If the program requires table or array files to be included at the beginning 
of object program execution, the program will require card files with the 
labels as specified by the program in the File Description and Extension 
Specifications. 


LABEL EQUATION CARD 


The label equation card is used to change a compiler file name in order to 
avoid duplication of file names in the disk directory when operating ina 
multiprogramming environment, or to access a file name other than the default 
file names in the RPG compiler. 
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Table 12-1 lists the files that are used by the RPG compiler for source input 
and compilation output. 


Table 12-1. Files Used for Source Input and Compilation Output 


Internal External 
File Name File Name Description 


CARDS RPG/CARD Input file from the card 
reader. 


LINE RPG/LIST Source output listing to 
the line printer. 


NEWSOURCE NEWSOURCE Output file to disk for 
a NEW source file when 
the $ NEW option is used. 


SOURCE SOURCE Input file from disk 
when $ MERGE option is 
used. 


TABCRD RPG/ VECTOR Input file for tables 
from the card reader. 


Label equation cards use the FILE statement. Refer to the B 1800/B 1700 
Systems, System Software Operational Guide, Form Number 1068731, for additional 
information. The format of the FILE statement is: 


? FILE <internal-file-name> NAME=<file-~identifier-; 


The FILE statement must immediately follow a COMPILE, EXECUTE, DYNAMIC, or 
MODIFY statement. 


The following sample deck could be used to compile a source program which 
merges a patch file on cards with a SOURCE program located on disk. The 
SOURCE program's name is PROGRAM] and the OBJECT program's name is OBJ.PROGI. 


? COMPILE OBJ.PROG1 WITH RPG TO LIBRARY 
? FILE SOURCE NAME PROGRAMI1 
? DATA RPG/CARD 


$ MERGE card followed by patch card source statements 


? END 
? DATA RPG/VECTOR 


table file cards 
? END 
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SECTION 13 


DATA MANAGEMENT 
SYSTEM SPECIFICATIONS 


RPG DATA MANAGEMENT FACILITY 


The RPG data management system provides the ability to process a DMSII data 
pase uSing conventional RPG syntax and concepts. 


A data base is constructed by a DASDL compilation. The DASDL compiler, using 
a description of the data base (DASDL source statements), produces a data base 
dictionary file which contains information about each structure described 
within the data base. 


Data sets, sets, and subsets are the structures which make up the data base. 

A data set description in DASDL specifies the logical structure of a file. 

Set and subset descriptions in DASDL specify the logical structures of indexes 
or index tables (paths) that are used in storage and retrieval of the data 
contained in a data set. 


Data sets and sets on the outermost level of the description are disjoint data 
sets and disjoint sets respectively. A data base must contain at least one 
disjoint data set. 


In order to effectively use the RPG data management system, understanding how 
the data base structures relate to the concepts of RPG files is important. 


RPG DATA MANAGEMENT FILES 


The basic structure in a data base is the disjoint data set. A data set is 
Similar to the RPG concept of a file in that a data set contains the actual 
records. Unlike RPG, a record can contain not only items of information but 
other data sets (embedded data sets). 


Additionally, records within a data set can contain access paths (or pointers) 
to the records of another disjoint data set. This access path is called a 
manual subset. 


In order to better understand an embedded data set, consider the data set 
EMPLOY containing records for each employee. This data set may contain an 
embedded data set named WRKHIS for each employee's work history. For every 
employee record in EMPLOY, 0, 1, or more work history records may be stored in 
the WRKHIS data set. Later, when employee records are being read, DMS delivers 
all the requested WRKHIS records which have been previously stored. If there 
are no WRKHIS records, DMS informs the RPG program of this condition. 


To better understand how a manual subset is used, consider two disjoint data 
sets, DEPART and EMPLOY. To gain access to all of the employees within each 
department ordered by the employees last name, a manual subset may be used. 
The manual subset provides paths from one disjoint data set to another dis- 
joint data set. That is, within each DEPART record there is a manual subset 
called DEPEMP. 
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The following DASDL source statements pertain to the previous example: 


DEPART DATA SET 
( 


DEPEMP SUBSET OF EMPLOY KEY IS (LASNAM) 


) 
EMPLOY DATA SET 
( 


LASNAM 


) 
By manual, it is meant that the RPG program must insert the record in the 
manual subset DEPEMP after creating and storing a record in the data set 


EMPLOY. Similarly, the RPG program must remove the record in the manual sub- 
set DEPEMP after deleting the record in the data set EMPLOY. 


A data set may be accessed by way of various paths or, in DMS terminology, by 
means of sets or subsets. Sets, automatic subsets, and manual subsets with 
keys are structures that organize the data set records into logical sequences. 
In RPG terms, this is known as indexing by way of a key. A set provides 
access to all of the records of a data set. An automatic subset provides 
access to a limited collection of records, that is, a condition for membership 
in the subset exists, and the condition is checked each time a record is to be 
added to the data set. 


sets and automatic subsets declared as indexed-Sequential in DASDL allow for 
accessing successive records based on the ordering sequence of the key, or a 
given record may be accessed based on the value of the key. In DMS, several 
sets and/or automatic subsets may exist for the same data set. That is, the 
same data set may be accessed via several different keys. 


An indexed-random set iS a structure which provides access to a data set 
record based on the value of a key. Unlike other sets and automatic subsets, 
ordering is not implied, except in the isolated case where two or more records 
contain duplicate key values. In this case, access to the NEXT record makes 
available the next record which contains a duplicate of the key. All sets 
other than manual subsets are maintained by DMS. When a record is added, 
updated, or deleted, DMS adjusts all indexes affected by the various "key" 
values in the record. No special action is required in the RPG program. 
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DATA BASE SPECIFICATION 
There must be only one Data Base Specification in an RPG program. 
The Data Base Specification is optional but is required when any DMS files are 


declared in the program. If used, the Data Base Specification must immediately 
follow the Control Specification, if one exists. 


FIELD DEFINITIONS 
1-2 PAGE 

Refer to Section 2 for a complete description. 
3-5 LINE 

Refer to Section 2 for a complete description. 
6 FORM TYPE 

This field must contain the letter D. 
7-16 DATA BASE NAME 


This field must contain the name of the physical data base being used 
and must be the same data base name referenced by DASDL. 


17-26 LOGICAL DATA BASE 


This field may contain the name of the logical data base as specified 
by DASDL. The logical data base is a portion of the physical data base 
which may be accessed by the program. This logical data base name must 
have been defined in DASDL. If no entry is made, the entire physical 
data base is available to the RPG program. 


27 ACCESS MODE 
This field must contain the letter I or U. If the data base is to be 
accessed input only, enter the letter I. If the data base is to be 
updated, enter the letter U. 

28-74 These columns must be left blank. 

70-80 PROGRAM IDENTIFICATION 
Refer to Section 2 for a complete description. 

If the RPG library files created by DASDL reside on a disk other than the sys- 


tem disk, the Data Base Specification must be preceded by a $ PACKID or 
$ DISKID file identification option. 
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Figure 13-1 shows an example of coding a Data Base Specification. 
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DATA BASE SPECIFICATION Page _ 
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Figure 13-1. Data Base Specifications 


DATA MANAGEMENT FILE DESCRIPTION SPECIFICATIONS 


Every disjoint data set to be used by an RPG program must be described to the 
RPG compiler in the File Description Specifications. The disjoint data set 
must be specified in DASDL. Figure 13-2 shows the various processing methods 
for DMS files. 
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Figure 13-2. Processing Methods for DMS Files 
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FIELD DEFINITIONS 


1-2 


15 


16 


17 
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PAGE 

Refer to Section 2 for a complete description. 
LINE 

Refer to Section 2 for a complete description. 
FORM TYPE 

This field must contain the letter F. 

FILE NAME 


The file name specified in the File Description Specifications must be 
the name of a disjoint data set which is defined in DASDL. 


FILE TYPE 


Valid entries for this field are: 


The file specified is an input 
file. 


The file specified is an update 
file. 


The file specified is an output 
file. 


FILE DESIGNATION 


This field further describes the use of input and update files. Valid 
entries for this field are: 


Definition 
Output file. 


Primary sequential file. 


Secondary sequential file. 


Demand file. 


Chained, record address, and table files must not be specified as a DMS 
file. 


END OF FILE 


Refer to Section 4 for a complete description. 


18 


19 


20-39 


40-46 


SEQUENCE 


This field is used only by primary and secondary files to indicate 
whether or not the program is to check the sequence of the input 
records. Columns 61-62 of the Input Specifications must specify the 
match fields within the input file records, and this file must have an 
automatic subset or ordered set specified in columns 47-52 of the File 
Description Specifications. Valid entries for this field are: 


Definition 


Records with matching fields 
are to be sequence-checked in 


ascending order. 


Records with matching fields 
are to be sequence-checked in 
descending order. 


This column must be blank for unindexed primary and unindexed secondary 
DMS files. 


sequence checking is performed when matching fields have been specified 
for the records ina DMS file. If a record from a matching input DMS 
file is found to be out of sequence, the program halts. If the program 
halts, the operator may make one of the following entries: 


<program job number>AXGO Ignore the record out of sequence 
and read the next record from the 
same DMS file. 


<program job number>AXSTOP Ignore the record out of sequence, 
turn on the LR indicator, and 
perform all end of job totals. 


<program job number>Ds Discontinue the program. 


All sequence checking is performed according to the EBCDIC collating 
sequence (see Appendix B). If any matching DMS file specifies descend- 
ing (D) sequence, all matching files must specify descending sequence. 


FILE FORMAT 


The only valid entries for this field for DMS files are blank or the 
letter F. 


These columns must be blank for DMS files. 

DEVICE 

The only valid entry for this field is DMS. 

Specifying DMS in the DEVICE field indicates that this file is a DMS 
file. For all files declared as DMS files, the compiler obtains RPG- 
DMS library files from disk. These library files are created by the 


DASDL compiler (refer to $ RPGLIB in the DASDL Information and Sugges- 
tions subsection) for the data base declared in the Data Base 
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Specifications. The compiler uses these library files to determine 
Which field names in the RPG source program are from the DMS file. 


47-52 INDEX NAME 
Enter the name of the automatic subset or ordered set which is the 
index into the specified DMS file. If this field is blank, then the 
specified data set is processed in its physical order rather than being 
processed by index order. 
This entry must be blank for demand files, files specified as output, 
and primary or secondary DMS files which have no index specified in 
DASDL. 

53-65 These columns must be left blank for DMS files. 

66 FILE ADDITIONS /UNORDERED /DELETION 
The letter U in this column for a DMS file is invalid. 
Valid entries for this field are: 


Records may be added to an existing file. 


Records may be deleted from an existing 
LELTe., 


Records may be added to and/or deleted 
from an existing file. 


Records are not to be added or deleted. 


If ADD is specified in columns 16-18 of the Output-Format Specifica- 
tions for this file, then enter the letter A or B in this field. 


NOTE 


Adding records to an indexed cycle-driven 
DMS file when the file is not the file 
which has just been read in the current 
RPG cycle can produce unexpected results. 
For instance, if a record is added to a 
secondary file following a read of a 
record from the primary file, the second- 
ary file's record work area contains the 
added record information. At the time 
the record information for the secondary 
file is made available, the information 
reflects the added record. This situation 
has implications affecting which record 
the program receives when the file is 
processed by means of matching records or 
control level breaks. To avoid this situ- 
ation, add records at detail time and 
when the record identification indicator 
is set ON for this file. 
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ver Loads is les in columns 16-18 of the Output-—-Format 
Specifications for this file, enter the letter D or B in this field. 


If the letter O is entered in column 15 of this File Description Speci- 
fication, only the letter A is allowed in this field. 


For primary or secondary DMS files with no index specified, the only 
valid entry in this field is blank or the letter D. 


The only valid entry for demand DMS files is blank or the letter A. 


Deletion of records from a demand DMS file is accomplished with the 


DELET operation code. 72. TY . | 
67-@ Th 1 t be left blank for DMS file i h | | , ) Pi 


75-86 PROGRAM IDENTIFICATION 

Refer to Section 2 for a complete description. 
Since the location of all DMS files is maintained by DMS, the File Identifica- 
tion options $ PACKID, $ FAMILY, $ FILEID, and $ DISKID must not be specified 


for any DMS files defined in the File Description Specifications. 
Figure 13-2 shows the various processing methods for DMS files. . 
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DATA MANAGEMENT EXTENSION SPECIFICATIONS 


Extension Specifications are used to describe all tables and arrays used by 
the RPG program. 


FIELD DEFINITION 
1-2 PAGE 
Refer to Section 2 for a complete description. 
3-5 LINE 
Refer to Section 2 for a complete description. 
6 FORM TYPE 
This field must contain the letter E. 
11-26 FROM AND TO FILENAMES 
A DMS file must not be specified for these fields. 
27-74 Refer to Section 5 for a complete description. 
75-80 PROGRAM IDENTIFICATION 
Refer to Section 2 for a complete description. 
The rules for declaring vectors on Extension Specifications are unchanged. An 


OCCURS item defined in DASDL must be specified in the Extension Specifications 
as a vector. 
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DATA MANAGEMENT INPUT SPECIFICATIONS 


Input Specifications describe the records within each disjoint data set or 
embedded data set to be used as input data for the RPG program. 


The entries defined in the Input Specifications for DMS files are divided into 
the following two sections: 


Field Definitions for Record Type Descriptions. 


Field Definitions for Field Descriptions. 


FIELD DEFINITIONS FOR RECORD TYPE DESCRIPTIONS 


1-2 


7-14 


15-18 


19-20 


PAGE 

Refer to Section 2 for a complete description. 
LINE 

Refer to Section 2 for a complete description. 
FORM TYPE 

This field must contain the letter I. 

FILE NAME 


Every DMS file which is described in the File Description Specifica- 
tions as input or update must be described in the Input Specifications. 
An Input Specification is required for an embedded data set which is 
used with a FIND or LOCK operation. 


Embedded data sets may only be accessed on a demand basis (for example, 
with a FIND operation). All embedded data sets described in the Input 
Specifications must be embedded in a disjoint data set which is 
described in the File Description Specifications. 


SEQUENCE 

Sequencing may be specified for a DMS file that is described in the 
File Description Specifications as primary or secondary and is accessed 
by means of an index. The File Description Specification entry for 
that file, columns 47-52, must be non-blank. 

Refer to Section 8 for a complete description of Sequencing. 


RECORD IDENTIFYING INDICATOR 


A DMS file must not have look-ahead fields or spread records specified 
in this field. 


The DMS exception indicators D1, DA-DH, and DJ-DS must not be entered 
in this field. 
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Valid entries for this field are: 


Record identifying indicator. 


Control level indicator. 
Last record indicator. 


Halt indicator. 


21-41 RECORD IDENTIFYING CODES 


Entries in these columns may be made if columns 44-51 of the record 
line contain a DASDL-defined, non-vector field name. 


21-24, 28-31, AND 35-38 POSITION 


An entry in these fields for a DMS file specifies the position (in 
digits for numeric items, in bytes for alphanumeric items) within the 
item specified in columns 44-51 of the record line, not a position in 
a record. 


The item positions are numbered from left to right, with the left-most 
digit or byte considered to be position one. 


These fields must be blank if the letter S is specified in columns 26, 
33, or 40 respectively. 


26, 33, AND 40 C/Z/D/S 


In addition to the character (C), zone (Z), and digit (D) record 
identification, these fields may contain the letter 8. The letter 58 
specifies signed-numeric record identification. If the letter S is 
specified, columns 21-24, 28-31, and 35-38 must be blank, columns 27, 
34, and 41 must contain a positive sign (+) or negative sign (-), and 
the DASDL source program must define the field specified in columns 
44-51 as a Signed-numeric field. 


For DMS fields, the character, zone, digit, and sign record identifica- 
tion specify a value within the item specified in columns 44-51 of the 
record line, not a position in the record. 


27, 34, AND 41 CHARACTER 


42 
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If an entry in columns 26, 33, or 40 is the letter S, then the only 
valid entries for columns 27, 34, and 41 are: 


(+) Declares that a positive sign be used for comparison with the sign 
position of the numeric field specified in columns 44-51. 


(-) Declares that a negative sign be used for comparison with the sign 
position of the numeric field specified in columns 44-51. 


STACKER SELECT 


This field must be blank for DMS files. 


43 


44-51 


02-74 


75-80 


PACKED 
This field must be blank for DMS files. 
FIELD LOCATION 
When an entry is made in this field on a record description line, it 
Specifies which item in the record is used for comparison in setting 
the record identifying codes. 
When AND or OR lines occur for the record description line using record 
identification codes, columns 44-51 can contain any one of the follow- 
ing entries: 
a. A blank, which defaults to the previous entry in columns 44-51. 
b. The same item as previously defined. 
c. A different DASDL-defined item. 
When uSing record identifying codes, the entry in this field in the 
record description line must not contain a vector name. The only valid 
entry is a DASDL-defined item. 
These columns must be blank. 


PROGRAM IDENTIFICATION 


Refer to Section 2 for a complete description. 


FIELD DEFINITIONS FOR FIELD DESCRIPTIONS 


1-2 


PAGE 

Refer to Section 2 for a complete description. 

LINE 

Refer to Section 2 for a complete description. 

FORM TYPE 

This field must contain the letter I. 

These fields must be blank for field descriptions. 

FIELD LOCATION 

This field specifies the location and data characteristics of the FIELD 
NAME entered in columns 53-58. A DASDL-defined item must be specified 
here which effectively "locates" and "types" the entry in the FIELD 
NAME columns. 


If this field is left blank and the FIELD NAME entry contains a DASDL- 
defined name, the FIELD LOCATION defaults to the same entry. 


An entry in this field on a field description line must not be a sub- 
scripted vector. 


Tar13 


O2 


03-58 


59-60 


61-62 


63-64 
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DECIMAL POSITIONS 
This field must be blank. 
FIELD NAME 


If the FIELD LOCATION entry is blank, the FIELD NAME entry must be a 
DASDL-defined name. 


Only those fields which are used in the program need to be specified on 
the Input Specifications. 


Table 13-1 lists the allowable combinations of the FIELD LOCATION and 
FIELD NAME entries, and the action taken. 


CONTROL LEVEL 
These fields must be blank for non-indexed, cycle-driven DMS files. 


For all other primary and secondary files the L1-L9 control level 
indicators are valid. 


MATCHING FIELDS 
These fields must be blank for non-indexed, cycle-driven DMS files. 


For all other primary and secondary files the M1-M9 matching field 
indicators are valid. 


FIELD RECORD RELATIONS 


The DMS exception indicators, D1, DA-DH, and DJ-DS, must not be entered 
in this field. 


For all other files, the following are valid entries: 


Record identifying indicator 
assigned to a record type. 


Control level indicator defined 
elsewhere. 


Matching record indicator. 


External indicator defined 
elsewhere. 


Halt indicator defined elsewhere. 


65-70 FIELD INDICATORS 


The DMS exception indicators, D1, DA-DH, and DJ-DS must not be entered 
in this field. 


71-74 These columns must be blank. 
759-80 PROGRAM IDENTIFICATION 
Refer to Section 2 for a complete description. 


Figure 13-3 illustrates two coding examples for DMS Input Specifications. 
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Figure 13-3. Input Specifications for DMS Files 
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Table 13-1. 


FIELD LOCATION | FIELD NAME 


Columns 
44 - 51 


Vector 


Vector 


Vector 


Vector 


Vector 


Vector 
Field Name 


Field Name 


Field Name 


Field Name 


Field Name 


Field Name 
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Combinations of Various DMS FIELD LOCATION and 


FIELD NAME Fields in the Input Specifications 


Array 


Array ,J 


Table,J 


Array,3 


Table,3 


Table 
Array 


Array,J 


Array,3 


Table,dJ 


Table,3 


Field Name 


Program Action 


Load the whole Array with the contents of the 
location specified by the whole DASDL-defined 


vector. 


Load Array ,J 
specified by 


Load Table,J 
specified by 


Load Array,3 
specified by 


Load Table,3 
specified by 


Not allowed. 
Not allowed. 


Load Array,Jd 
specified by 


Load Array,3 
specified by 


Load Table,J 
specified by 


Load Table,3 
specified by 


Load to the contents of Field Name specified in 


with the contents 
the DASDL-defined 


with the contents 
the DASDL-defined 


with the contents 
the DASDL-defined 


with the contents 
the DASDL-defined 


with the contents 
the DASDL-defined 


with the contents 
the DASDL-defined 


with the contents 
the DASDL-defined 


with the contents 
the DASDL-—defined 


of the location 
Vector,d. 


of the location 
Vector ,Jd. 


of the location 
Vector,3. 


of the location 
Vector,3. 


of the location 
Field Name. 


of the location 
Field Name. 


of the location 
Field Name. 


of the location 
Field Name. 


columns 53-58 from the location of the DASDL- 
defined Field Name in columns 44-49. 


ow 


Table 13-1. Combinations of Various DMS FIELD LOCATION and 
FIELD NAME Fields in the Input Specifications (Cont) 


FIELD LOCATION | FIELD NAME 

Columns Columns 
44 - 51 53 - 58 Program Action 
Table 


Field Name Not allowed, 


Blank Load the whole Array with the contents from the 


location of the DASDL-defined Array. 


Array 


Blank 


Array ,J Load to Array,J with the contents from the loca- 


tion of the DASDL-defined Vector,J. 
Array,3 Load to Array,3 with the contents from the loca- 
tion of the DASDL-defined Vector,3. 


Blank 


Table 


Blank 


Not allowed. 


Blank Table,J Load to Table,J with the contents from the loca- 


tion of the DASDL-defined Vector,J. 
Blank 


Table,3 Load to Table,3 with the contents from the loca- 


tion of the DASDL-defined Vector,3. 


Field Name; Load to Field Name with the contents from the 


location of the DASDL-defined Field Name. 


Blank 
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DATA MANAGEMENT CALCULATION SPECIFICATIONS 


The entries defined on the Calculation Specifications for DMS files are 
described in the following paragraphs. 


FIELD DEFINITIONS 

1-2 PAGE 
Refer to Section 2 for a complete description. 

3-5 LINE 
Refer to Section 2 for a complete description. 

6 FORM TYPE 
This field must contain the letter C. 

7-8 CONTROL LEVEL 
AND/OR lines (AN, OR). When several DMKEY lines must be specified to 
eStablish the required relationship of the DMKEY operations for the 
immediately preceding FIND or LOCK using random access, an AN or OR in 
columns 7-8 must be used on all DMKEY operations after the first DMKEY 
of a group. Columns 7-8 must be blank for the first DMKEY operation, 
except for the optional entry SR when the DMKEY operation is in a sub- 


routine. See figure 13-5 for two examples of coding the DMKEY 
operation. 


9-17 INDICATORS 


Enter the conditioning indicators in these fields. 


In addition to those indicators specified in Section 9, the following 
DMS exception indicators may also be used: 


ON EXCEPTION indicator 


NOTFOUND indicator 
DUPLICATES indicator 
DEADLOCK indicator 
DATAERROR indicator 
NOTLOCKED indicator 


KEYCHANGED indicator 
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18-27 


Entry Definition 
SYSTEMERROR indicator 
READONLY indicator 
IOERROR indicator 
LIMITERROR indicator 
OPENERROR indicator 
CLOSEERROR indicator 
NORECORD indicator 
INUSE indicator 
AUDITERROR indicator 


ABORT indicator 


SECURITYERROR indicator 


VERSIONERROR indicator 


Refer to the B 1800/B 1700 Systems Data Management System (DMSIT) 
Reference Manual, Form No. 1089794, for a complete description of the 
DMS exception conditions. 


All conditioning indicators on a FIND or LOCK operation with random 
access are applied to the DMKEY operations immediately following the 
FIND or LOCK operation. Columns 9-17 must be blank for the DMKEY oper- 
ation(s) which immediately follow the FIND or LOCK statements with 
random access. 


The D1 indicator is set ON for all DMS exception conditions. In addi- 
tion, one of the indicators DA-DH, DJ-DS is set ON to indicate the type 
of DMS exception condition. 


FACTOR 1 


When the operation code specified in columns 28-32 is a FIND, LOCK, 
INSRT, or REMOV operation, the allowable entries for FACTOR 1 are: 


a. An index name (retrieval set, automatic subset, ordered set, 
or manual subset which is defined by DASDL) associated with 
the data set name specified in columns 33-42, except the REMOV 
operation. 


b. For the FIND or LOCK operations, FACTOR 1 may be left blank 
when the access desired is not by means of an index. 


For all other DMS operations, FACTOR 1 must be blank. 
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28-32 


33-42 


43-48 
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OPERATION FIELD 


Enter the desired operation code in this field. Refer to Section 9 for 
a description of the available non-DMS operation codes, and refer to 
the subsection titled Data Management Operation Codes in this section 
for a description of the DMS operation codes. 


The non-DMS operation codes which are described in Section 9 and cannot 
be specified for DMS files are as follows: 


a. CHAIN 
b. DEBUG 
c. DSPLY 
>. ame 
e READ 
f RECV 
g. SEND 
h. SETLL 
FACTOR 2 


When a DMS operation code other than DMKEY or REMOV is specified in the 
OPERATION FIELD (columns 28-32), the only allowable entry in FACTOR 2 
is a data set name. This data set name must be one of the following: 


a. A disjoint data set previously defined on the File Description 
Specifications. 


b. An embedded data set previously defined in DASDL and embedded 
in a disjoint data set previously defined in the File Descrip- 
tion Specifications. 


When the DMKEY operation code is specified in the OPERATION FIELD, the 
allowable entries in FACTOR 2 are a literal or a variable name. 


If the operation code is REMOV, FACTOR 2 must be blank. 
RESULT FIELD 
The RESULT FIELD is used to specify the selection expression for FIND 


and LOCK, and specifies the DASDL-defined key name for the DMKEY opera- 
tion. Valid entries for this field are: 


49-91 


O24 


03 


For all other DMS operations, 


Get the current record. 


Get the first record of the data 
set. Used with FIND or LOCK 
operation codes. 


Get the last record of the data 
set. Used with FIND or LOCK 
operation codes. 


Get the next record of the data 
set. Used with FIND or LOCK 
operation codes. For index- 
sequential sets, if there is no 
current record, get the first 
record of the data set. 


Get the previous record of the 
data set. Used with FIND or 
LOCK operation codes. 


Key name as defined in DASDL. 
Used with DMKEY statement. 


the RESULT FIELD must be blank. 


Refer to the B 1800/B 1700 Systems Data Management System (DMSII) 


Reference Manual, 


selection expression. 


FIELD LENGTH 


This field must be blank when a DMS operation is specified 


OPERATION FIELD. 


DECIMAL POSITIONS 


This field must be blank when a DMS operation is specified 


OPERATION FIELD. 


HALF ADJUST/ACCESS METHOD 


This field is used to specify the access method (random or 


for the FIND and LOCK operations. 


When FIND or LOCK is specified in the OPERATION FIELD, 


are the only valid entries: 


Definition 


Random Access 


Sequential Access 


Form No. 1089794, for a functional description of 


in the 


in the 


sequential ) 


following 
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04-59 RESULTING INDICATORS 


When a DMS operation other than DMKEY is specified in the OPERATION 
FIELD, the only valid entries for these columns are the entries D1 or 
blank. The Dl indicator is the general DMS exception indicator. 


Columns 96-59 must be blank for all DMS operations other than DMKEY. 


If the DMKEY operation code is specified in the OPERATION FIELD, then 
columns 54-56 must contain the DMKEY relation. Columns 57-59 must be 
blank. 


If a DMS exception occurs, then: 


a. If the Dl indicator is specified in columns 54-55, D1 is set 
ON (and one of the appropriate exception indicators DA-DH or 
DJ-DS). 


b. If blanks are specified in columns 54-55, the program branches 
to the exception handling routine for one of the following: 


1. The data set specified in FACTOR @Q for the FIND, LOCK, 
FREE, TRBEG, TREND, STORE, and DELET operation codes. 


2. The manual subset Specified in FACTOR 1 for the INSRT and 
REMOV operation codes. 


ec. The program terminates if blanks are specified in columns 
04-55 and no exception handling routine exists for either of 
the following: 


1. The data set specified in FACTOR 2 for the FIND, LOCK, 
FREE, TRBEG, TREND, STORE, and DELET operation codes, 


2. The manual subset specified in FACTOR 1 for the INSRT and 
REMOV operation codes. 


60-74 These columns must be blank. 
75-80 PROGRAM IDENTIFICATION 

Refer to Section 2 for a complete description. 
Setting Indicators 
The D1, DA-DH, and DJ-DS exception condition indicators are set OFF immedi- 
ately prior to a DMS operation and are set ON as a result of a DMS exception 
condition. The Dil indicator may be used as a resulting indicator of a DMS 


operation. The DA-DH and DJ-DS indicators must not be used as resulting indi- 
cators for a DMS operation. 


pow 
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DATA MANAGEMENT OPERATION CODES 


The RPG language provides explicit operation codes to interact with DMS. DMS 
structures are manipulated by these operations. 


A valid data set name is defined as one of the following: 


a. A disjoint data set which has been defined in the File Description 
Specifications as an input or update demand file. 


b. An embedded data set which is embedded in a disjoint data set 
defined in the File Description Specifications. 


PROGRAMMED CONTROL OF DATA MANAGEMENT INPUT AND OUTPUT 


Within the normal B 1800/B 1700 RPG cycle, a record is read, calculations are 
performed (using the data from the input record), and an output record is 
written. The DELET, FIND, FREE, INSRT, LOCK, REMOV, and STORE operations 
allow greater control over DMS input snd output providing the capability to 
read and write records other than those normally available as part of the RPG 
program cycle. 


DELET 


The DELET operation code provides a method of deleting a record from the 
specified data set. Figure 13-4 shows one method of coding the DELET 
operation. 
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Figure 13-4. One Method of Coding the DELET Operation 


The DELET operation requires entries in the following fields: 
a. The DELET operation code in columns 28-32. 
b. A valid data set name in FACTOR 2. 


ec. The Dl indicator or blanks in columns 54-55. 
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DELET prohibits entries in five following fields: 

a. FACTOR 1 

b. RESULT FIELD 

c. RESULT FIELD LENGTH 

d. DECIMAL POSITIONS FIELD 

e. HALF ADJUST/ACCESS MODE FIELD 

f. LOW and EQUAL RESULTING INDICATORS 
Refer to the DELETE operation in the B 1800/B 1700 Systems Data Management 
System (DMSII) Reference Manual, Form No. 1089794, for a functional descrip- 
tion of the DELET operation code. Sa vot eae 


DMKLY 


This operation code provides a method of specifying the conditions which must 
be satisfied by the record accessed in the immediately previous FIND or LOCK 
operation uSing random access. Figure 13-5 shows two methods of coding the 
DMKEY operation. 


The DMKEY operation requires entries in the following fields: 
a. DMKEY operation code in columns 28-32. 


b. A literal or variable name in FACTOR 2. The literal or variable 
provides a value for the key condition. 


c. The RESULT FIELD contains a key item name. This item name, defined 
in DASDL, must be a key item of the set or subset name specified in 
FACTOR 1° of the immediately previous FIND or LOCK operation. 


d. The key relationship desired in columns 54-56. Valid entries for 
this field are: 


GTR The item in the RESULT FIELD is greater than the 
value of the field or literal specified in FACTOR 2. 


LSS The item in the RESULT FIELD is less than the value of 
the field or literal specified in FACTOR 2. 


EQL The item in the RESULT FIELD is equal to the value of 
the field or literal specified in FACTOR 2. 


GEQ The item in the RESULT FIELD is greater than or equal to 
the value of the field or literal specified in FACTOR 2. 


LEQ The item in the RESULT FIELD is less than or equal to 
the value of the field or literal specified in FACTOR 2. 


ow 


NEQ The item in the RESULT FIELD is not equal to the value 
of the field or literal Specified in FACTOR 2. 
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Figure 13-5. Two Coding Examples of the DMKEY Operation 


DMKEY prohibits entries in the following fields: 

a. Any conditioning indicator in columns 9-17 

b. FACTOR 1 

c. RESULT FIELD LENGTH 

d. DECIMAL POSITIONS FIELD 

e. HALF ADJUST/ACCESS MODE FIELD 

f. Columns 97-59 
The DMKEY operation describes the key conditions for the immediately previous 
FIND or LOCK operation. Random access must be specified for the FIND or LOCK 


Operation by entering the letter R in column 53 of the Calculation 
Specifications. 
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There must be at least one key of a set or subset defined for the DMKEY 
operation with a FIND or LOCK operation when random access is specified. If 
only some of the keys of a set or Subset are defined, then any key relation- 
Ship for the undefined key(s) iS considered acceptable. 


FIND 
The FIND operation code provides a method of locating a record in a data set 


and transferring the record to the record area as defined in the Input Speci- 
fications. Figure 13-6 shows methods of coding the FIND operation. 
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Figure 13-6. Methods of Coding the FIND Operation (Sheet 1 of 2) 
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Figure 13-6. Methods of Coding the FIND Operation (Sheet 2 of 2) 


The FIND operation requires entries in the following fields: 
a. FIND operation code in columns 28-32. 
b. A valid data set name in FACTOR 2. 
c. The letter R or S in column 53. The letter R SpecifieS random access 
of the data set. The letter S specifies sequential access of the 


data set. 


d. The D1 indicator or blanks in columns 54-55. 
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The FIND operation may also use the following entries: 

a. The contents of FACTOR 1 may specify the name of a retrieval set, 
ordered set, automatic Subset, or manual subset. This index name 
must have been previously defined in DASDL. 

b. The RESULT FIELD may contain a Selection expression. This selection 
expression specifies the record of a data set which is to be proc- 
essed, relative to the last record accessed. 

A FIND operation code with random access (the letter R in column 53 of the 
Calculation Specifications) must be immediately followed by appropriate DMKEY 
operation(s) to define the key condition(s) which must be satisfied. 

The FIND operation prohibits entries in the following fields: 

a. RESULT FIELD LENGTH 

b. DECIMAL POSITIONS FIELD 

c. LOW and EQUAL RESULTING INDICATORS 

Refer to the FIND operation in the B 1800/B 1700 Systems Data Management 
System (DMSII) Reference Manual, Form No. 1089794, for a functional descrip- 


tion of the FIND operation code. 


FREE 


The FREE operation code unlocks the current locked record for this program and 


this data set. Figure 13-7 shows one method of coding the FREE operation. 
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Figure 13-7. One Method of Coding the FREE Operation 
The FREE operation requires entries in the following fields: 
a. FREE entered in columns 28-32. 
b. A valid data set name in FACTOR 2. 


c. D1 exception indicator or blanks in columns 54-55. 
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The FREE operation prohibits entries in the following fields: 

a. FACTOR 1 

b. RESULT FIELD 

c. RESULT FIELD LENGTH 

d. DECIMAL POSITIONS FIELD 

e. HALF ADJUST/ACCESS MODE FIELD 

f. LOW and EQUAL RESULTING INDICATORS 
Refer to the FREE operation in the B 1800/B 1700 Systems Data Management 
System (DMSII) Reference Manual, Form No. 1089794, for a functional descrip- 
tion of the FREE operation code. 
INSRT 
The INSRT operation code specifies the insertion of a record from a data set 


into a manual subset. Figure 13-8 shows one method of coding the INSRT 
operation. 
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Figure 13-8. One Method of Coding the INSRT Operation 


The INSRT operation requires entries in the following fields: 


a. The manual Subset name in FACTOR 1. This. manual subset must have 
been previously defined by DASDL, and must be one of the following: 


1. An item of a disjoint data set defined on the File Descrip- 
tion Specifications. 


2. An item of an embedded data set which is embedded in a 
disjoint data set defined on the File Description 
Specifications. 


b. INSRT entered in columns 28-32. 
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c. A data set name in FACTOR 2. This data set name must be a disjoint 
data set which has been defined on the File Description 
Specifications. 

d. The Dl exception indicator or blanks in columns 54-55. 

The INSRT operation prohibits entries in the following fields: 
a. RESULT FIELD 
b. RESULT FIELD LENGTH 
ec. DECIMAL POSITIONS FIELD 
d. HALF ADJUST/ACCESS MODE FIELD 
e. LOW and EQUAL RESULTING INDICATORS 
The data set name must be the declared source of records for a manual subset. 
For example, the manual subset name S1 must be a manual subset of the data set 
D, aS the following example illustrates. 
Example: 

DASDL: S1 SUBSET OF D 

RPG: Si INSRT D 

(FACTOR 1) (OPERATION) (FACTOR 2) 

Refer to the INSERT operation in the B 1800/B 1700 Systems Data Management 
System (DMSII) Reference Manual, Form No. 1089794, for a functional descrip- 
tion of the INSRT operation code. 
LOCK 
The LOCK operation code locates a record in the Specified data set, transfers 
the data to the record area as described in the Input Specifications, and 
locks the record to prevent concurrent modifications by another user. If the 
record is not found, a NOTFOUND exception condition results. Figure 13-9 
Shows methods of coding the LOCK operation. 
The LOCK operation requires entries in the following fields: 

a. LOCK entered in columns 28-32. 

b. A valid data set name in FACTOR 2. 

ec. The letter R or S in column 53. If the letter R is specified, the 
data set is processed randomly. If the letter S is specified, the 
data set is processed sequentially. 


d. The Dil exception indicator or blanks in columns 54-55. 


In addition to the preceding required entries, the LOCK operation may use the 
following optional entries: 


a. FACTOR 1 to specify the name of a retrieval set, ordered set, auto- 
matic Subset, or manual subset. The index name must have been 
previously defined in DASDL. 
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Figure 13-9. 


b. The RESULT FIELD may contain a selection expression. 
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Methods of Coding the LOCK Operation (Sheet 1 of 2) 


expression specifies the record of the data set which is to be 


processed, 


relative to the last record accessed. 


This selection 


A LOCK operation code with random access (the letter R in column 53 of the 
Calculation Specifications) must be immediately followed by appropriate DMKEY 
operation(s) to define the key condition(s) which must be satisfied. 
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Figure 13-9. 


Methods of Coding the LOCK Operation (Sheet 2 of 2) 


LOCK operation prohibits entries in the following fields: 
a. RESULT FIELD LENGTH 
b. DECIMAL POSITIONS 


c. LOW and EQUAL RESULTING INDICATORS 


Refer to the MODIFY operation in the B 1800/B 1700 Systems Data Management 


System (DMSII) Reference Manual, Form No. 
tion of the LOCK operation code. 


REMOV 


1089794, for a functional descrip- 


The REMOV operation removes the current record from a manual subset. The 


record is not removed from the data set. 
coding the REMOV operation. 
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Figure 13-10 shows one method of 
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Figure 13-10. One Method of Coding the REMOV Operation 


The REMOV operation requires entries in the following fields: 


a. 


b. 


Cc. 


A manual subset name in FACTOR 1. 
the following: 


The manual subset must be one of 

1. An item of a disjoint data set defined on the File Descrip- 
tion Specifications. 

2. An item of an embedded data set which is embedded in a 
disjoint data set defined on the File Description 
Specifications. 


REMOV entered in columns 28-32. 


The D1 indicator or blanks in columns 54-55. 


The REMOV operation prohibits entries in the following fields: 


a. 


b. 


Cc. 


d. 


e s 


ins 


FACTOR 2 

RESULT FIELD 

RESULT FIELD LENGTH 

DECIMAL POSITIONS 

HALF ADJUST/ACCESS MODE FIELD 


LOW and EQUAL RESULTING INDICATORS 


Refer to the REMOVE operation in the B 1800/B 1700 Systems Data Management 


System (DMSII) Reference Manual, Form No. 


1089794, for a functional descrip- 


tion of the REMOV operation code. 


STORE 


The STORE operation provides a method of updating a record or adding a new 


record to a data set. 


Figure 13-11 shows one method of coding the STORE 


Operation code. 


13-33 


Programme Sosataoth Ae doe eee aa ee Burroughs RPG Dee ales 
Program (Ds 2 ge 2 ae CALCULATION SPECIFICATION 
Resuit 19 


1 i 
| Indcators | 
H 


Anthmetic 


| 
| 
| 
e | , i lon 3 Plus| Minus ero 
” ] : ' i oS Compare! 
x AND AND Factor 1 | Operation Factor 2 | Result 2/8 High Low Equa Comments 
— { 2) 
a{é < | | | gil Lookup 
>| 5 ! | | ©) 2 TapieiFactor2is | 
be © a= 2 | c 1312 
» JEJE ah. | 1 3 & (E|= [Hen] tow qual 
eA eee | © € (E15 
a Wig 2 2 2 uw O/ [chen Tol 
¢ £0F 
1 2 4 GH? BED FIO VIILZH3 L4N5116 17418 $9 20 Pt 22 23 24 25 26 2°78 2S 3C 3} Wi+ 34 35 36 Jy OR SAL A 4, [42 44 48 46 47 48149 SO STPEMTSSSS S596 87158 SofbU £1 dR OS DT OE ee. 


Thi ITIL LLL LL TIL Le 

Hort eet cbtalphet beat Bhat pbeearuawct Taient bet fhe mame fot at barat eect Toth 

Se aca tite alm cacao 

Pele COTTE leis OCT pal 
Bae oe es ae a Ar ith e dlee| 


AE IC 


— Figure 13-11. One Method of Coding the STORE Operation Code 
The STORE operation requires entries in the following fields: 
a. STORE entered in columns 28-32. 
b. A valid data set name in FACTOR 2. 
ec. The D1 exception indicator or blanks in columns 954-55. 
The STORE operation prohibits entries in the following fields: 
a. FACTOR 1 
b. RESULT FIELD 
c. RESULT FIELD LENGTH 
d. DECIMAL POSITIONS 
e. HALF ADJUST/ACCESS MODE FIELD 
f. LOW and EQUAL RESULTING INDICATORS 
The STORE operation uses Output-Format Specifications which contain: 
a. The data set name in columns 7-14. 
b. The letter S in column 15. 
Refer to the STORE operation in the B 1800/B 1700 Systems Data Management 


System (DMSII) Reference Manual, Form No. 1089794, for a functional descrip- 
tion of the STORE operation code. 


——. 
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DATA MANAGEMENT EXCEPTION HANDLING 
An RPG program which uses DMS operations may encounter any one of many DMS 
exception conditions which prevent the operation from being performed as 


specified. If an exception condition occurs, the RPG program terminates 
unless one of the following conditions exists: 


a. Columns 54-55 of the Calculation Specifications for a DMS operation 
other than DMKEY contain the D1 indicator for the DMS operation which 
caused the exception condition. 

b. An exception handling routine exists in the Calculation Specifications 
for the cycle-driven file, demand file, or manual subset for which 
the exception condition occurred. 

INPUT EXCEPTIONS FOR CYCLE-DRIVEN DATA MANAGEMENT FILES 

If a cycle-driven DMS file is used and one of the following exception condi- 
tions occurs, the operator must respond appropriately. The exception condi- 
tions listed below result in the following run-time diagnostics for 
cycle-driven DMS files: 

a. DEADLOCK exception gives the operator the option to enter: 


1. <program job number>AXRETRY. Attempt the same operation 
again. 


2. <program job number>AXSTOP. Program performs an orderly 
termination. 


b. ITOERROR exception gives the operator the option to enter: 


1. <program job number>AXRETRY. Attempt the same operation 
again. 


2. <program job number>AXSTOP. Program performs an orderly 
termination. — 


ec. SECURITYERROR exception only allows the operator to enter: 


1. <program job number>AXSTOP. Program performs an orderly 
termination. 


d. VERSIONERROR exception only allows the operator to enter: 


1. <program job number>AXSTOP. Program performs an orderly 
termination. 


A NOTFOUND exception condition is treated as an end of file for cycle-driven 
DMS files. 
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ALL OTHER EXCEPTION CONDITIONS 
An exception handling routine may be coded for one of the following: 


a. Those exceptions which occur as a result of an explicit data manage- 
ment operation other than DMKEY which does not have the indicator D1 
entered in columns 54-55 for that operation. 


b. Those exceptions which may occur for primary or Secondary DMS files 
exclusive of the exceptions previously listed under Input Exceptions 
for Cycle-Driven Data Management Files. 


The exception handling routine operation codes are used only to delimit the 
beginning and end of an exception handling routine. Calculation Specification 
lines within an exception handling routine must contain the entries UR, OR, 
AN, or blank in columns 7-8, and all exception handling routines must be 
specified immediately before all Output-Format Specifications. Exception 
handling routines must not be nested in the RPG program. 


EXCEPTION HANDLING OPERATION CODES 


The exception handling operation codes are described in the following 
paragraphs. 


BEGUR 


This operation code indicates the start of an exception handling routine. 
FACTOR 2 must contain the name of the disjoint data set, embedded data Set, 
or manual subSet for which the exception handling routine is applicable. For 
the BEGUR operation, columns 9-27 and 43-59 must be blank. 


ENDUR 

This operation code indicates the end of an exception handling routine. 
FACTOR 1 may contain a label. This label is used as a tag, thus allowing 
exits from different points within the exception handling routine. Columns 
9-27 and 33-59 must be blank for this exception handling operation code. 


The following rules must be followed when coding an exception handling 
routine: 


a. Exactly one exception handling routine may be defined for: 


1. Each disjoint data set defined in the File Description 
Specifications. 


2. Each embedded data set which is embedded within a disjoint 
data set defined in the File Description Specifications. 


3. Each manual subset which is an item of a disjoint data set 
or an item of an embedded data Set. 
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b. The following operation codes must not appear within an exception 
handling routine: 


ds 


as 


16. 


CHAIN 
DELET 
EXCPT 
EXSR 
FIND 
FORCE 
FREE 
INSRT 
LOCK 
READ 
RECV 
REMOV 
SEND 
STORE 
TRBEG 


TREND 


c. Branching into or out of a given exception handling routine is not 
allowed (for example, a branch such as a GOTO or EXSR operation). 


Additionally, the following must be noted: 


a. The program aborts if an exception condition occurs and no exception 
handling routine is defined for at least one of the following: 


i os 


Zi 


A cycle-driven DMS file. 


A demand DMS file which does not have the D1 indicator coded 
in columns 54-55 of the Calculation Specifications for a DMS 
operation code other than DMKEY. 


A manual subset which does not have the D1 indicator coded 


in columns 54-55 of the Calculation Specifications for the 
DMS operations INSRT or REMOV. 
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b. If the exception condition occurs during detail or total output, the 
Operation continues with the next detail or total output line after 
exiting the exception handling routine. 


If an exception condition occurs as a result of an EXCPT or STORE 
operation code, the operation continues with the next output line 
Which contains the letter E (if the operation was an EXCEPT) or the 
letter S (if the operation was a STORE) in column 15 of the Output- 
Format Specification or the next calculation operation in the 
Calculation Specifications after exiting the exception handling 
routine. 


Figures 13-12 and 13-13 illustrate a method of retrying an output operation 
when an exception condition is reported for a DMS operation. Figure 13-12 
Shows a method of retrying when cycle-driven DMS files are specified. 
Figure 13-13 shows a method of retrying the output operation following an 
exception condition when the EXCPT operation code is specified in the 
Calculation Specifications. 
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Figure 13-12. Program Example of Retrying a Write after Exiting 
Exception Routine with Cycle-Driven Processing (Sheet 1 of 2) 
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Figure 13-12. Program Example of Retrying a Write after Exiting 
Exception Routine with Cycle~Driven Processing (Sheet 2 of 2) 


In both figures, the data base PAYROLL is opened update. The file MASTER, 
defined in DASDL as a disjoint data set, is an update primary DMS file with 
additions specified (an A in column 66 of the File Description Specifications), 
and 1S accessed by way of the index DEPEND. When a record from MASTER is read, 
the record identifying indicator O01 is turned on, and the value from the DASDL- 
defined location DUPKEY is loaded to the program-defined variable DUPKEY. 

Also, both examples use the Same exception handling routine, delimited by the 
BEGUR and ENDUR operations in the Calculation Specifications. 
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Figure 13-13. Program Example of Retrying a Write after Exiting 
Exception Routine with Exception Output Handling 
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In figure 13-12, a record is read and an attempt is made to add a record with 
the same key aS was read by means of the RPG cycle. In figure 13-13, the 
first EXCPT operation in the Calculation Specifications attempts to add a 
record which has the same Key as an existing record. In both examples, a 
DUPLICATES exception condition is reported and the exception condition indi- 
ecators Dl and DB are set ON. Each program then branches to the exception 
handling routine, denoted by the BEGUR operation in the Calculation Specifica- 
tions. Here, the literal NEWVALUE is moved into the key field DUPKEY and 
processing continues. In figure 13-12, the processing continues at the second 
Output record specified on the Output-Format Specifications, and in figure 
13-13, processing continues with the second EXCPT in the Calculation Specifi- 
cations. Both methods achieve the Same results. 


It is recommended that writing to DMS files be done using the EXCPT and STORE 


operation codes. This insures timely identification and handling of exception 
conditions. 
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DATA MANAGEMENT OUTPUT-FORMAT SPECIFICATIONS 


The entries defined in the Output-Format Specifications for DMS files are 
divided into the following two sections: 


a. Record description section. 


b. Field description section. 


RECORD DESCRIPTION SECTION 


1-2 PAGE 


Refer to Section 2 for a complete description. 


3-9 LINE 


Refer to Section 2 for a complete description. 


6 FORM TYPE 


This field must contain the letter O. 


7-14 FILE NAME 


The file specified must be one of two types: 


a. A disjoint data set 
tion Specifications 


a Be 
2. 
3. 


4. 


(ie 
8. 


b. An embedded data set 


Input with 
Input with 
Input with 


Update 


Update with 
Update with 
Update with 


Output with 


previously described on the File Descrip- 
as: 


ADD 
DELETE 


ADD /DELETE 


ADD 
DELETE 

ADD /DELETE 
ADD 


which is embedded in a disjoint data set 


defined on the File Description Specifications. 
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16-18 


TYPE 


The letter entries H, D, E, and T are all valid. Also valid is the 
DMS letter entry S. 


Enter the letter S in this field when this record is to be written as 


a result 


of a STORE operation in the Calculation Specifications. 


RECORD ADDITION/DELETION 


A record can be added to an existing DMS file if the following condi- 
tions are met. 


a. 


The file is defined in a File Description Specification as an 
input or update primary or secondary file with an index speci- 
fied, an input or update demand file, or an output file. 


Column 66 of the File DesScription Specification has the 
letter A or B. 


DMS is entered in the DEVICE FIELD on the File Description 
Specifications. 


ADD is entered in the Output-Format Specification in columns 
16-18. ADD is implied for files declared as Input with ADD 
or Output with ADD. 


ADD must not be specified on AND or OR lines of the Output- 
Format Specifications. 


Also, a record can be added to a DMS file if the following conditions 


are met. 
a. 


b. 


A record 


a. 


The file is an embedded data set. 


ADD is entered in the Output-Format Specifications in 
columns 16-18. 


ADD must not be specified in AND or OR lines of the Output- 
Format Specifications. 


can be deleted from an existing DMS file only if: 


The file is defined in the File Description Specification as 
an input or update primary or secondary file. 


The letter D or B is entered in column 66 on the File Descrip- 
tion Specifications. 


DMS is entered in the DEVICE FIELD on the File Description 
Specifications. 
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23-31 


32-74 
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d. DEL is entered in columns 16-18 in the Output-—Format 
Specifications. 


e. DEL must not be specified in AND or OR lines of the Output- 
Format Specifications. 


f. No field description lines may appear with a DEL record 
description line. 


Deletion of records in embedded data sets or demand disjoint data sets 
is accomplished with the DELET operation code. This does not reference 
Output-Format Specifications. 


OUTPUT INDICATORS 


Besides the indicators normally allowed for these fields, any of the 
DMS exception condition indicators (D1, DA-DH, DJ-DS) may also be used, 
but only if DMS files are specified in the File Description 
Specifications. 


These fields must be blank for record description lines except for 
variable format data sets. 


VARIABLE FORMAT RECORDS 


When Variable Format Records are specified for a data set in the DASDL 
specifications, the RPG compiler requires certain record-type specifi- 
cations in the Output-Format Specifications for added records to that 
data set. 


The following example shows a DASDL source where Variable Format 
Records are specified: 


Example: 


DEPT DATA SET ( 


DEPNUM NUMBER (5); 
DEPNAM ALPHA (10); 
RECKEY RECORD TYPE NUMBER (S2);), 
-1: ( <A ALPHA (3) ; 
B ALPHA (4) _), 
2: ( C ALPHA (7) ; 
D NUMBER (6). ), 


MAXRECORDS = 100; 
The following should be noted about the records in the DEPT data set: 


a. Every record has a fixed portion and a variable portion which 
depends on the value of RECKEY. 


b. The fixed portion of the record consists of the items: 
DEPNUM 


DEPNAM 
RECKEY 


% 


c. When records are added to the DEPT data set, DMS uses RECKEY 
to determine which of two possible formats to assign to the 
variable portion of the record. 


1. If RECKEY = -1, the variable portion consists of 
items A and B. 


2. If RECKEY = 2, the variable portion consists of 
items C and D. 


34 If RECKEY = O or the value defined in DASDL as the 
FIXEDFORMATVALUE, this record has only the fixed 
portion. 


4. If RECKEY = any other value, a DATAERROR exception 
condition occurs when adding the record. 


d. When variable format records are updated, the control item for 
the record type must not be changed. If a change is attempted, 
a DATAERROR exception condition results. 


If a record is added to a data set with variable formatting, the first 
record line(s) of the Output-Format Specifications for the data set 
must specify the value to be assigned to the record-type. The follow- 
ing entries are required in the Output-Format Specifications: 


a. Columns 32-37 must specify a field name or columns 45-70 must 
specify a constant. If a constant is specified, the constant 
must be formatted according to the rules for output of con- 
stants to data sets on the Output-Format Specifications. 
Specifying a field name in columns 32-37 and a constant in 
columns 45-70 is not allowed. Decimal alignment is performed 
when the record is written. Data truncation is not allowed. 


b. If columns 14-16 contain the entry AND, columns 32-37 and 
columns 45-70 must be blank. 


c. If columns 15-16 contain the entry OR, columns 32-37 and 

columns 45-70 may be blank. If columns 32-37 and columns 
45-70 are blank, the field name or constant from the last 
specified OR line or the first record line is used. If the 
field name or constant position is not blank, the specified 
value as given applies. Figure 13-14 illustrates this 
possibility. 

If indicators 01 and 02 are ON, FIELD contains the value for RECKEY. 

If indicator 03 is ON, FIELD contains the value for RECKEY. 

If indicator 04 is ON, FIELD contains the value for RECKEY. 

If indicator 05 is ON, +2 is the value for RECKEY. 

If indicator O6 is ON, +2 is the value for RECKEY. 


If indicator 07 is ON, O is the value for RECKEY. 
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Figure 13-14. Example of Variable Format Records Coding 


75-80 PROGRAM IDENTIFICATION 

Refer to Section 2 for a complete description. 
FIELD DEFINITIONS FOR FIELD DESCRIPTION LINES 
1-2 PAGE 

Refer to Section 2 for a complete description. 
3-5 LINE 

Refer to Section 2 for a complete description. 
6 FORM TYPE 

This field must contain the letter O. 
7-16 These fields must be left blank for field description lines. 
17-22 DMS OUTPUT LOCATION 


This field is used in the Field Description line to indicate the output 
location and format of the variable name entered in columns 32-37 or 
the constant entered in column 45. The entry in this field must be a 
field name which has been previously defined in the specified data set 
in DASDL or may be blank if the variable name in the VARIABLE NAME 
field is a DASDL-defined name. An entry in this field must not be a 
subscripted vector. This is the only case of a field description line 
having entries in columns 17-22. 


If the entry in this field is defined in DASDL as unsigned numeric, all 
signs are stripped off before the variable or constant is written. 


23-31 OUTPUT INDICATORS 


Besides the indicators normally allowed for these fields, any of the 
DMS exception condition indicators (D1, DA-DH, DJ-DS) can also be used, 
but only if DMS files are specified in the File Description 
Specifications. 


fe > 
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32-37 


38 


40-43 


44 


45-70 


VARIABLE NAME 

This field is used to identify an output data field. The identifier 
used must have been previously defined in the Input Specifications, 
Extension Specifications, or Calculation Specifications. For DMS files, 
the entry may be the same as the entry made in the DMS output location 
(columns 17-22 on the Output-Format Specifications). The following 
conditions must be satisfied. 


a. If the variable is numeric, the DASDL definition must be 
numeric. Decimal point alignment is automatically performed. 


b. If the variable is alphanumeric, the DASDL definition must be 
alphanumeric. The data is stored left-justified with blank 
fill if required. 


Truncation of data is not allowed. 


Table 13-2 illustrates the various combinations of DMS OUTPUT LOCATION 
and VARIABLE NAME fields and the action taken. 


EDIT CODES 

This field must be blank for DMS files. 

END POSITION 

This field must be blank for DMS files. 

PACKED 

This field must be blank for DMS files. 

CONSTANT 

Edit words must not be entered in this field for DMS files. 


The following rules must be observed when forming constants with DMS 
files: 


a. The VARIABLE NAME field entry must be blank. 

b. The value of any constant must be numeric if the DMS OUTPUT 
LOCATION entry is numeric and alphanumeric if the DMS OUTPUT 
LOCATION entry (columns 17-22) is alphanumeric. 


ec. If the DMS OUTPUT LOCATION entry (columns 17-22) is numeric, 
column 45 must contain: 


1. + for positive values. 
2. - for negative values. 
3. A digit (0-9) to imply positive. 
d. Decimal point alignment is performed on the entry. 


e. Sign characters and decimal points are not included in the 
Size of the literal. 
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Table 13-2. Combinations of DMS OUTPUT LOCATION and VARIABLE NAME 
Fields in the Output-Format Specifications 


OUTPUT LOCATION | VARIABLE NAME 
Columns 


32 - 37 Program Action 


Vector Array Write the contents of the whole Array to the 
location of the DASDL-defined Vector. 


Vector Array ,J Write the contents of Array,J to the loca- 
tion of the DASDL-defined Vector,J. 


Vector Table,J Write the contents of Table,J to the loca- 
tion of the DASDL-defined Vector,J. 


Vector Array,3 Write the contents of Array,3 to the loca- 
tion of the DASDL-defined Vector,3. 


Vector Table,3 Write the contents of Table,3 to the loca- 
tion of the DASDL-defined Vector, 3. 
Vector Table Not allowed. 
Vector Field Name Not allowed. 
Field Name Array Not allowed. ; 
Field Name Array,dJ Write the contents of Array,J to the loca- 


tion of the DASDL-defined Field Name. 


Field Name Table,J Write the contents of Table,J to the loca- 
tion of the DASDL-defined Field Name. 


Field Name Array,3 Write the contents of Array,3 to the loca- 
tion of the DASDL-defined Field Name. 


Field Name Table,3 Write the contents of Table,3 to the loca- 
tion of the DASDL-defined Field Name. 


Field Name Field Name Write the contents of the Field Name in col- 
umns 32-37 to the location of the DASDL- 
defined Field Name in columns 17-22. 


Field Name Table Not allowed. 


Blank Array Write the contents of the whole Array to the 
location of the DASDL-defined Vector. The 
definition used for columns 17-22 defaults 
to the DASDL-defined name in columns 32-37. 


Blank Array ,J Write the contents of Array,J to the loca- 
tion of the DASDL-defined Vector,J. The 
definition used for columns 17-22 defaults 
to the DASDL-defined name in columns 32-37. 


13-48 


Table 13-2. Combinations of DMS OUTPUT LOCATION and VARIABLE NAME 
Fields in the Output-Format Specifications (cont) 


OUTPUT LOCATION | VARIABLE NAME 


Program Action 


Write the contents of Array,3 to the loca- 
tion of the DASDL-defined Vector,3. The 

definition used for columns 17-22 defaults 
to the DASDL-defined name in columns 32-37. 


Table Not Allowed. 


Table,J Write the contents of Table,J to the loca- 
tion of the DASDL-defined Vector,J. The 
definition used for columns 17-22 defaults 


to the DASDL-defined name in columns 32-37. 


Write the contents of Table,3 to the loca- 
tion of the DASDL-defined Vector,3. The 

definition used for columns 17-22 defaults 
to the DASDL-defined name in columns 32-37. 


Table,3 


Write the contents of Field Name to the 
location of the DASDL-defined Field Name. 
The definition used for columns 17-22 
defaults to the DASDL-defined name in 
columns 32-37. 


Field Name 


f. The DASDL definition must be at least as long as the constant 
after decimal point alignment has been performed. 


If the DMS OUTPUT LOCATION entry is numeric, embedded blanks 
must not appear in the constant field. 


g. If the DMS OUTPUT LOCATION field (columns 17-22) is alpha- 
numeric, then: 


1. The DASDL definition must be at least as long as the 
constant. 


2. Data is left-justified with blank fill, if necessary. 
71-74 These columns must be blank. 
75-80 PROGRAM IDENTIFICATION 
Refer to Section 2 for a complete description. 


Figure 13-15 shows coding examples for data management files in the Output- 
Format Specifications. 
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Figure 13-15. Output-Format Specifications for DMS Files 
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DATA MANAGEMENT AUDIT /RECOVERY | 


A processing failure can interrupt a logical update to a data base. For 
example, a data record may have been inserted into a data set but not into one 
of its automatic sets. To recover data base integrity after such a failure, 
it is necessary to preserve the "before" images so that partial operations 

can be removed from the data base. Storage failures can occur requiring 
"after" images to restore data base integrity. In order to recover the data 
base, an audit trail must be maintained by DMSII. 


If the AUDIT option is set in DASDL, an audit trail is maintained by DMS. 

This audit trail can be stored on tape or disk. If disk is specified, use a 
disk pack other than the disk pack which contains the data base. If the audit 
trail and data base are maintained on the same disk pack, and an irrecoverable 
disk failure occurs, the data base can only be recovered to the point where 
the data base was dumped to tape or another disk pack. Maintaining separate 
disk packs for the audit trail and data base makes recovery of the data base 
faster. 


When a data base is audited (AUDIT option set in DASDL), all changes to the 
data base are written sequentially to the audit file. If a processing failure 
occurs, this audit file contains each change so that they can be reapplied to 
the data base by the DMS recovery routines. All logically incomplete trans- 
actions are removed from the data base. 


The DASDL source for an audited data base includes a RESTART DATA SET declara- 
tion. This restart data set holds the necessary information so that a program 
can realign itself with the last good transaction prior to the processing 
failure. When DMS recovers the data base following a processing failure, the 
DMS recovery routines store each program's restart information (based on the 
contents of the audit trail) into the restart data set. Since the restart 
data set is part of the data base, RPG programs can conveniently retrieve the 
restart information from this data set to reinitialize themselves after com- 
pletion of the recovery process. 


All updating to an audited data base must be done within transaction State. 
There are two operation codes in RPG which delimit transaction state for an 
RPG program. They are TRBEG and TREND. TRBEG specifies the beginning of 
transaction state and TREND specifies the end of transaction state. These 
are explicit operations and are not required for RPG cycle-driven file 
processing. 


Cycle-driven DMS files generate TRBEG and TREND operation codes implicitly. 
This occurs when: 


a. <A restart data set is specified in the File Description 
Specifications. 


b. One or more cycle-driven DMS files are specified in the File Descrip- 
tion Specifications. 


c. The data base 1S opened update. 


13-951 


A TRBEG operation is generated by the RPG compiler after the record identifying 
indicator is set ON for the cycle-driven DMS file. One other TRBEG operation 
is generated when end of file (the LR indicator ON) is reached for cycle-driven 
DMS files just prior to end-of-job totals. Figure H-1 in Appendix H shows the 
implicit TRBEG and TREND operations performed on cycle-driven files in rela- 
tion to the RPG cycle. 


A TREND operation with audit and no syncpoint is generated by the RPG compiler 
following detail output except when the 1P indicator is ON. One other TREND 
Operation with no audit and Syncpoint is generated after end-of-job totals and 
before all files are closed. ) 


The DMS recovery routines are transaction-oriented and always recover to a 
time when no partial transactions are reflected in the data base. 


A transaction consists of a Sequence of DMS operations grouped together in an 
RPG program. These DMS operations constitute a logical change to the data 
base. The DMS operations which actually change the data base, (STORE, DELET, 
INSRT, REMOV) must be performed within a transaction state; otherwise, an 
AUDITERROR exception condition occurs. Other operations such as the FIND 
operation can be performed either in or out of a transaction state since the 
operation does not change any item in the data base. 


Following the recovery of a data base, the RPG program must reprocess any 
transactions which were interrupted due to the processing failure. To assist 
the RPG program in restarting, restart information must be stored in the 
restart data set. If a processing failure occurs, the recovery routines 
insure that the information corresponding to the last good transaction is in 
the restart data set. Using this information, the program can restart at the 
point where the data base was recovered. 


If a data base is opened update (the letter U in column 27 of the Data Base 
Specification) and the data base is being audited, the restart data set 
defined in DASDL must be defined in the File Description Specifications in the 
RPG program. If a data base is opened input only (the letter I in column 27 
of the Data Base Specifications), the RPG program must not specify a File 
Description Specification for a restart data set. 
RESTART DATA SET FILE DESCRIPTION SPECIFICATION 
Every restart data set to be used by an RPG program must be described to the 
RPG compiler in the File Description Specifications. The restart data set 
must be specified and the AUDIT option must be set in the DASDL source 
program. 
FIELD DEFINITIONS 
1-2 PAGE 

Refer to Section 2 for a complete description. 
3-5 LINE 

Refer to Section 2 for a complete description. 


6 FORM TYPE 


This field must contain the letter F. 
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7-14 DATA SET NAME 


This field must contain the name of the restart data set which is 
specified in DASDL. 


15 FILE TYPE 
For a restart data set, this field must contain the letter R. 
16-39 These fields must be blank for a restart data set. 
40-46 DEVICE 
For a restart data set, this field must contain the entry DMS. 
47-65 For a restart data set, these fields must be blank. 
66 FILE ADDITION /UNORDERED /DELETION 
For a restart data set, all entries for this field which are valid for 


demand files with device type DMS are also valid for a restart data 
set. Valid entries for this field are: 


A Records may be added to 
this file. 
Blank Records may not be added 


to this file. 


oe For a restart data set, these fields must be blank. 


{75-80 PROGRAM IDENTIFICATION 
Refer to Section 2 for a complete description. 
RESTART DATA SET INPUT SPECIFICATIONS 


The Input Specifications for a restart data set are identical to those speci- 
fications for any demand-driven file whose device type is DMS. Input Specifi- 
cations for a restart data set are required only if the program has FIND or 
LOCK operations applied to it. 


RESTART DATA SET CALCULATION SPECIFICATIONS 

All DMS operations which are valid for demand DMS data sets are also valid for 
the restart data set. Specifically, restart data sets are essentially update, 
demand DMS files. However, no operations which alter the restart data set, 


for example STORE, are allowed outside of a transaction state. If such an 
operation is attempted, an AUDITERROR exception condition occurs. 


| Yo W-TY - Sa po bal 
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Two additional operation codes are needed to explicitly define a transaction 
to DMS for an audited data base. These are the TRBEG and TREND operations. 
The use of these operation codes is defined as follows. 


TRBEG 


Initiates transaction state for this program. TRBEG must be entered in 
columns 28-32 of the Calculation Specifications. The Dl exception con- 
dition indicator may be entered in columns 547-55. All other fields must 
be blank. No record is written to the restart data set as a result of 
execution of the TRBEG operation. 


TREND 


Ends transaction state for this program. The FACTOR 2 field may contain 
the entry NOAUDIT, and the RESULT FIELD may contain the entry SYNCPT. The 
Dl exception condition indicator may be entered in columns 547-55. 


If the FACTOR 2 field contains the entry NOAUDIT, no information is 
written to the restart data set. If the FACTOR 2 field is left blank, a 
STORE operation is performed on the restart record defined with the letter 
R in column 15 of the Output~Format Specifications. 


If the RESULT FIELD contains the entry SYNCPT, a syncpoint is forced by 
DMS prior to returning control back to this program. The SYNCPI option 
ensures that all transactions performed prior to this TREND operation with 
syncpoint are reflected in the data base. If the RESULT FIELD is left 
blank, no syncpoint is forced. 


It is recommended that the Dl exception condition indicator be entered in 
columns 54-55 of the Calculation Specifications for the TRBEG and TREND opera- 
tions. If columns 54-55 are left blank for a TRBEG or TREND operation and an 
exception condition occurs, the exception handling routine for the restart 
data set is entered. Refer to the subsection titled Data Management Exception 
Handling in this section for more information. If no exception handling rou- 
tine exists, the program aborts. 


The ABORT exception condition can occur on a TRBEG operation or on a TREND 
with syncpoint operation. Any exception condition which can occur on a STORE 
operation can also occur on a TREND with audit operation. 


Exception conditions can occur on the implicitly generated transaction opera- 
tions, just as they can occur when TRBEG and TREND operations are specified 

in the Calculation Specifications. However, the D1 indicator cannot be speci- 
fied for use on the implicitly generated transactions operations. 


If an exception condition occurs on an implicitly generated TRBEG or TREND 
operation, the exception handling routine for the restart data set is entered. 
If no such routine exists and an exception condition occurs, the program 
aborts. 


The implicit TREND operation generates an end transaction with audit and no 
synepoint, except when the LR indicator is ON in which case the implicit TREND 
Operation is generated with no audits eumimme syncpoint. This guarantees that 
if this operation is successful, no data base operations for this program are 
backed out on a program abort or CLEAR/START. 


Table 13-3 lists the RPG coding options available for the TRBEG and TREND 
operations. 
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Table 13-3. TRBEG and TREND Operation Coding Options 


Operation | Factor | Result | Columns 
Code 2 Field o4 - 55 Description 
TRBEG Beginning of a transaction state. 


TREND Blank Blank D1 A STORE is performed by the RPG program 
to the restart data set. An Output- 
Format Specifications record is 
required which contains an R in 
column 15. 


TREND NOAUDIT | Blank D1 A STORE operation is not performed to 
the restart data set. 

TREND Blank SYNCPT D1 Synepoint is forced for auditing prior 
to returning control back to the 
program. 


TREND NOAUDIT | SYNCPT D1 A STORE operation is not performed by 
the RPG program to the restart data Set. 
Syncpoint is forced for auditing prior 
to returning control back to the 
program. 


RESTART DATA SET OUTPUT-FORMAT SPECIFICATIONS 


All allowable Output-Format Specifications entries for DMS files are also 
applicable to the restart data set. AIlSo required are special Output-Format 
Specifications for the implicit or explicit TREND operations. These are 
defined as follows. 


7-14 DATA SET NAME 


This field must contain the name of the restart data set which is 
defined in the File Description Specifications. 


15 TYPE 


This field must contain the letter R whenever a TREND with audit is 
generated implicitly or explicitly. 


The following rules apply when coding type R Output-Format Specifica- 
tions for the TREND operation: 


a. Only type R Output-Format Specifications are used for a TREND 
with audit operation. 


b. If more than one type R output record is eligible for output 
at the time of the TREND operation, an AUDITERROR exception 
condition occurs. This is due to the fact that all writing to 
a restart data set must be done within a transaction. Once 
one STORE operation has been performed against the restart 
data set, the transaction ends until the next TRBEG operation. 
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c. If no type R records are eligible for output at the time of 
the TREND operation, an AUDITERROR exception condition occurs 
when the next TRBEG operation is performed. The AUDITERROR 
exception condition results from consecutive TRBEG operations 
because the first transaction state did not end with an 
implicit or explicit TREND operation. 


The recovery record(s) ‘contained in the restart data set may contain a 
programmatically defined key. In the case of two or more copies of the same 
RPG program running concurrently in the mix, the restart data set can contain 
unique keys (for example a batch ticket). 


The effective restart of a program implies that the RPG program must have 
saved enough information in the restart data set to be able to commence proc- 
essing as though no interruption had occurred. This includes the ability to 
reposition all non-DMS files to a point where integrity is assured. This 
requires RPG source code in each RPG program which is auditing the data base 
to read from the restart data set and use this information to realign the RPG 
program relative to the last good transaction. 


Figure 13-16 is an example of one technique illustrating audit and recovery. 

The RPG program's function is to read records from a disk file and then apply 
these records (additions, changes, and deletions) to a DMS master file. The 

recovery method utilized needs the following information: 


a. <A data item, STATUS, which contains a value of C or I. If STATUS is 
equal to C, this run is complete. If STATUS is equal to I, this run 
is incomplete. 


b. A data item, RRNUM, which contains the value of the last successfully 
processed relative record number in the input file. 


ec. Since there is only one restart data set for all programs using a 
data base, and each program needs its own restart record within the 
restart data set, there must be a "key" within each record of the 
restart data set which uniquely identifies that record as belonging 
to this program. In this example, the "key" is the program name, 
SAMPLE. 


In a non-DMS environment, this program would read one record per cycle, incre- 
ment a counter according to the record type, ''chain" to the "master" file, and 
perform detail or exception output to the "master" file. 


Figure 13-16 follows a similar pattern when a data set named MASTER and index 
named MSTKEY are substituted for the non-DMS indexed disk file in the situa- 
tion described above. 


The actual file maintenance occurs in one of three subroutines (ADD, CHANGE, 
or DELETE) dependent upon input record types. Prior to each STORE operation, 
transaction state must be entered using the TRBEG operation. The STORE opera- 
tion is then performed followed by the TREND operation to end the transaction 
state. When the TREND operation is used, the program looks for a type R 
output record which is properly conditioned by indicators. In this case, it 
is the second output record for the data set RESTART of the Output-—Format 
Specifications. The restart record is updated with the current relative 
record number and Status. 
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Figure 13-16. Program Example of Restart with a Demand DMS File (Sheet 1 of 4) 


This process continues until the End of File is reached on the primary file. 
When the LR indicator is on, the restart status field named STATUS must be 
reset to C to indicate completion of the run. By entering and exiting trans- 
action state (by performing the TRBEG and TREND operations respectively), an 
update is made to the restart record to reflect STATUS = C (the last output 
record for the data set RESTART of Output-Format Specifications in figure 
13-16). By including SYNCPT on the TREND operation, a syncpoint is forced on 
DMS. Thus, if the TREND operation is successful, the program is assured that 
all of its previous activity is protected by the recovery mechanism of DMS. 
That is, if the system fails after the TREND and before end of job, all of the 
program's updates are reflected in the data base. 
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Figure 13-16. Program Example of Restart with a Demand DMS File (Sheet 2 of 4) 


In the event of a system failure, 
After the data base is recovered, 
Which were running at the time of 
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the operator may re-execute any programs 
the failure. 
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Figure 13-16. Program Example of Restart with a Demand DMS File (Sheet 3 of 4) 
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Figure 13-16. 


13-60 


8 9 inuietaalalela 


tt STB as ote nee 

PTET welville BS tH Hin eth Batt tt th te aia 

LETTE TT iRieaig | | auTIHiie renee ILLEAEROGA LDSAGAEBOAEETIADGT 
cht 


2 te tetes Burroughs RPG 
pate eee OUTPUT FORMAT SPECIFICATION 


Space| Skip nd r Edit Codes (Column 38) 
Print Zero X = Remove 
Commas Balance Cr Plus sign 
B 


Yes Yes 1 A J Y = Date Fieid 
Yes No 2 K Eat 
No Yes | 3 Cc L 2 = Zero 
No No | 4 Oo M Suppress 
Constant or Edit Ward 
: 


Y, t 
bi2'3iais 617!'8 9 LOVE L2UES Daye Sys|i 118 197 20:21)22|23}24 
9}4C 41 32 43/44 delete ieReERIKGe 63 64 65 66 6° 68 69 CT 7 7§ 76 7778 79 80 


Field 


Name 
(Variable 
Name) 


AOAQ 80 B2 


A[N{O| 


Packed P/J/L/R 


Edit Code 
Biank After -B 


> | 
[= jo] Before 0-9 
j= fofAtter 0-9 | 


2 After 01-99 


“HERHDAAAAEOAAUAAOSOGAES DUUEROIAUAEAEESDE Tec ee 
e balcned apomriens TERRERENRRORGRRRGRNORTGRRIE 
Me 


masirer | Sapp |; of || | HHILEISLE 
BH HS TRE Re Sarl ieemeene ee meena tn 


| 

0 

| 

ol 

AMES LSSASUSLOTE 

PA Meee cea To Sanat Sas MULGGPATTLasPteaueseuvatdsssttc0sFet esses Eansae 
ctaaea TET ea ot RACER REI RR REPEL ERR SeCS ale ee 
OTT TTT TTT isirigeley [i Tie Ree pp 
? AGSERERRREG a 

ob 

o 

| 
of 

C 

g 

0) 

0) 
ol 

ol 

g 
of 

fo 

| 


fed 
B CREATE, RESTART. RECOR | Nem lFe SOULE EERE ERERRTE TRE EREEEL TEER TEER 
RRSEREeE PERRERERSELReREE 
RESTART RADDA. eee eet i 


Tus, ||| | tsmaru PS ee tec elena 


DON“ AHAOAAAAGOGAGGAERAGAATAGGGTOEE MO FATEDLAEIESTESUENITHIIEE 
aoe: RPI PRED ee reeasacrson TO 

ARUMGEARAURSUSERSERROEzO UREA ct 
ole les pat pam BIEAAL IOs HaneseeaeOL saat LonrsatenrSe ane 
ee PTT isin eam ee 
ele TTT enn pupiRec iE EEE Sea Ps ORAS 
eC AUSEUHHEOE ADAH ARBOR ATIOONOON DAG EET 
rst Chee, STarvs ra © Rad @e Seat ee eo 
el bw TET inaGHNBNOUNNEE eee 
rol Plgasralet 1 one RUB RRESSEGHS TED EH NER SDN RE Gen Beene Ee Nal 
maT TT sires | eee 


Program Example of Restart witha Demand DMS File (Sheet 4 of 4) 


The first thing that the RPG program in figure 13-16 does is branch to the 
Subroutine RESTART. This subroutine attempts to locate its restart record in 
the restart data set uSing its key SAMPLE. If the record is found and the 
STATUS = C designating complete, the STATUS field is updated with I, designat- 
ing incomplete, for the current run. Processing continues with the next 
instruction following EXSR RESTART in the Calculation Specifications. 


If the restart record is not found, the indicators D1 and DA are set ON indi- 
cating that this is the first time this program has been run. In this case, 
the restart record must be initialized and added to the restart data set. The 
addition is accomplished by the TRBEG and TREND operations. The record is 
added by the first RESTART output record of the Output-Format Specifications 
in figure 13-16. The STATUS then equals I, incomplete, for the current run, 
and processing begins. 


If the restart record is found and STATUS equals I, the program aborted during 
its last execution and special action must be taken by the program. The field 
RRNUM contains the number of input records which were successfully processed 
during the previous run. This means that records must be Skipped for this 
run. As long as indicator 05 is on and STATUS equals I, all updating activity 
is bypassed. When the number of records read during this execution exceeds 
the number of successfully processed records during the previous run, indi- 
cator O05 is set OFF and normal processing resumes. 


Figure 13-17 is an example of a cycle-driven DMS file and a different method 
than illustrated in figure 13-16 for audit and recovery. The function of this 
RPG program is to sSequentially read an entire data set and update one of its 
fields. The field CURR is added to the field OVRDUE and the new value of 
OVRDUE is stored in the data set record (first ACCTREC output record of the 
Output-Format Specifications, figure 13-17). In the event of a failure, the 
program must know which records have been updated and which have not, so that 
the updating process can continue at the correct point. Updating the same 
record twice results in an incorrect value for the field OVRDUE. 
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Figure 13-17. Program Example of Restart with a Primary DMS File 
(Sheet 1 of 2) 
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Figure 13-17. Program Example of Restart with a Primary DMS File 
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Instead of a STATUS field, as in figure 13-16, the restart data set named 
RESTART in this example uses a different method for determining whether or not 
a failure occurred. If the restart record is present at the beginning of job, 
then the previous run aborted. If the restart record is not present at the 
beginning of job, then the previous run was successful. The program adds the 
restart record to the restart data set named RESTART which has an initial 
RRNUM value of zero (first output record of the Output-Format Specifications 
for the restart data set named RESTART, figure 13-17). 


As each record is updated, the value of NUMREC is incremented by 1 and stored 
in the RRNUM field of the restart record (third output record of the Output- 
Format Specifications, for the restart data name RESTART, figure 13-17). At 
the End of Job, the entire restart record is deleted. 


At beginning-of-job, the RPG program checks for a restart record. This is 
performed by the subroutine RESTRT. If the restart record is not found, 
indicators Dl and DA are set ON and the restart record is initialized and 
added. If the restart record is found, the previous run has aborted and the 
restart record is required to realign the files. The record identifying indi- 
cator 02 is set ON when the restart record is read. As long as indicator 02 
remains ON, the only action taken is to add 1 to the counter for each input 
record, NUMREC, and compare it to RRNUM in the restart record. If NUMREC 
exceeds RRNUM, indicator 02 is set OFF and normal processing continues. 


The RPG compiler generates an implied TRBEG operation at the beginning of each 
cycle and an implied TREND operation at the end of each cycle. The implied 
TREND operation uses the Output-Format Specification line with the letter R in 
column 15 for the data set (third output record of the Output-Format Specifi- 
cations, for the restart data set named RESTART, figure 13-17). 
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DASDL INFORMATION AND SUGGESTIONS 


The following information and suggestions can be used when compiling the DASDL 
source program with the DASDL compiler. 


a. 


Include a $ RPGLIB DASDL compiler dollar sign option when compiling 
the DASDL source statements. This option informs the DASDL compiler 
to create RPG library files to be used by the RPG compiler. These 
library files reside on disk with the following naming convention: 


&<data base name>/<filename> 


The ampersand (&) appears before the data base name portion of the 
two-name filename. The ampersand designates the file as an RPG 
library file. There is one library file created on disk for each 
disjoint data set declared in the DASDL source statements. 


Include a $ RPG DASDL compiler dollar sign option when compiling the 
DASDL source statements. This option informs the DASDL compiler to 
check for RPG syntax. For example, all data names declared cannot 
exceed six characters in length. 


a 


Ne 


, AG 


If a restart data set is specified in the RPG program, the DASDL 
source program must specify the same restart data set, and the AUDIT 
option must be specified. 
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GLOSSARY OF COMMONLY USED DATA MANAGEMENT TERMS 


Refer to the B 1800/B 1700 Systems Data Management System (DMSII) Reference 
Manual, Form No. 1089794, for a complete description of the following data 
management terms. 


ABORT Exception 


An ABORT exception is returned to a program when another program aborts or 
goes to end of job while in transaction state. At this point, the DMS recov- 
ery routines may have backed out some of the program's transactions. The 
program must be restarted in order to recover the backed out transactions. 


AUDITERROR Exception 
An AUDITERROR exception occurs when any of the following occur: 
a. A program attempts an invalid sequence of begin or end transaction 
operations. That is, two begin transactions or two end transactions 


in a row. 


b. <A program attempts a begin or end transaction when the AUDIT option 
is not set in the data base. 


c. A program attempts to update a data base outside of transaction state. 


d. A program attempts to close the data base while in transaction state. 


CLOSEERROR Exception 


A CLOSEERROR exception occurs when a program attempts to close a data base 
which is not open. 


Contention Limit 


Contention limit is the amount of time that a program attempting to lock a 
record waits on another program which has that record locked. If that amount 
of time is exceeded, a DEADLOCK condition results. 


DASDL 


DASDL is an acronym for Data And Structure Definition Language. Compilation 
of a DASDL source deck with the DASDL compiler defines the structure and type 
of data allowed in a data base. 


DATAERROR Exception 
A DATAERROR exception occurs when any of the following occur: 
a. <A program attempts to store a record with a null key or null required 
item. 
b. <A program attempts to store a null Pecond: 
c. A program attempts to store a record and a DASDL verify condition is 
not met. 
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Data Set 


A data set is a collection of related records. Only data sets and embedded 
data sets have records. 


DEADLOCK Exception 
A DEADLOCK exception is returned to a program following resolution of a deadly 
embrace. DMS automatically performs a FREE operation on all locked records 
for the program. 
Deadly Embrace 
A deadly embrace occurs when all of the following occur: 

a. Two or more programs are accessing the same structure(s). 


b. Each program owns a set of locked records. 


c. Each program requests access to a record locked by one of the other 
programs. 


When a deadly embrace occurs, a DEADLOCK exception is returned to the lowest 
priority program involved in the embrace. 


Defined State 
A pointer is in a defined state when it refers to a valid record or path. 
Disjoint Data Set 


A disjoint data set is a data set which is not an item within another data set. 
Disjoint sets can only refer to disjoint data sets. 


DUPLICATES Exception 


A DUPLICATES exception occurs when duplicate records are not allowed in a set 
or manual subset and one of the following occurs: 


a. A program attempts to store a duplicate record in a set. 
b. A program attempts to insert a duplicate record in a manual subset. 
Embedded Data Set 


An embedded data set is a data set which is an item within a data set. An 
embedded data set can only be referenced by an embedded set on the same level. 


Index 


An index is a table of pointers to a data set which provides a specified 
access to a data set. 


INUSE Exception 


An INUSE exception occurs when a program attempts to delete a record with a 
non-null embedded structure. 
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IOERROR Exception 


An IOERROR exception occurs when a parity error (I/O error) occurred while 
trying to read from the data base. 


Key 


A key is a value used to locate specific records in a data set spanned by a 
set or referenced by a subset. 


KEYCHANGED Exception 

A KEYCHANGED exception occurs when a program attempts to store a record when 
the value of the item used as a key in the set is illegally changed (dupli- 
cates not allowed or embedded Set). 


LIMITERROR Exception 


A LIMITERROR exception occurs when a program attempts to store a record in a 
structure, and the amount of data in the structure exceeds its physical size. 


Master Record 

A master record is a data set record which has dependent data sets. A master 
can itself be a record in an embedded data set. An embedded data set cannot 
be accessed without accessing the master. 

NORECORD Exception 

A NORECORD exception occurs when any of the following occur: 


a. A current record pointer is not valid for an INSRT operation. 


b. A current record pointer is not valid for a FIND operation ona 
manual subset. 


ec. A current record of master record is not valid. 
NOTFOUND Exception 
A NOTFOUND exception occurs when any of the following occur: 


a. There is no record which satisfies the selection expression for a 
LOCK or FIND operation. 


b. The key value in the record does not match the key of a manual subset. 


c. The requested record does not exist in the data set (previously 
deleted). 


qd. The current record pointer is undefined. 
e. The embedded structure is empty. 
NOTLOCKED Exception 


A NOTLOCKED exception occurs when a STORE operation is not preceded by a LOCK Me 
or another STORE operation. 
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OPENERROR Exception 

An OPENERROR exception occurs when any of the following occur: 
a. A program attempts to open a data base which is not initialized. 
b. A program attempts to open a data base which is already open. 


c. A program attempts to open a data base, and the data base is not the 
proper level. 


d. The data base is not open prior to the first DMS operation. 
Path 


A path is an access to a data set record. A set iS an index of paths. The 
current path pointer associated with every set and subset (but not data set) 
refers to the last record accessed by way of that set or subset. Each current 
path pointer retains its reference until explicitly changed or until the 
record referenced by the current path pointer is deleted from the data base. 


READONLY Exception 


A READONLY exception occurs when a program opens a data base as input only, 
and either a STORE, DELET, INSRT, or REMOV operation is attempted. 


Record 


A record contains all the information that pertains to an entity. A record is 
considered to be the current record of a data set if the appropriate current 
record pointer refers to an existing record in the data base. The current 
record pointer for a data set is changed by any operation which causes a new 
record to be written to the data base or read from the data base. Changing 
the current record pointer automatically unlocks any previously locked record 
and, if required, locks the new one. 


SECURITYERROR Exception 


A SECURITYERROR exception occurs when a usercode does not satisfy the usercode 
requirements of the data base. 


set 


A set is an index of paths to a data set with a pointer to each record of that 
data set. 


Subset 


A subset is an index to records of a data set. If a manual subset exists ina 
data base, the specified records of the data set to be referenced must be pro- 
grammatically inserted into the subset. If an automatic subset exists ina 
data base, the condition is evaluated at each STORE operation, and if satis- 
fied, DMS does the insertion. 


SYSTEMERROR Exception 
A SYSTEMERROR exception occurs when too many data bases are open at the same 


time. The maximum number of data bases which can open at the same time is 
Six. 
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VERSIONERROR Exception 
A VERSIONERROR exception occurs when a program attempts to open a data base, 


and the program was compiled against a different version of the data base 
other than the version currently maintained in the DASDL dictionary. 
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APPENDIX A 


B 1800/B 1700 CARD CODES 


Figure A-1l shows the zone and digit portions of an 80-column card. The zone 
for character A is 12, and the digit is 1. The zone for character R is ll, 
and the digit 9. 
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Figure A-1l. Zone and Digit Portions of an 80-Column Card 


Figure A-2 shows the zone and digit portions of a 96-column card. The zones 
12, 11, and O on a 96~-column card are BA, B, and A, respectively. 


Table A-1 lists the 80-column and 96-column card codes for the complete B 1800/ 
B 1700 character set. 
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Figure A-2., Zone and Digit Portions of a 96-Column Card 
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Table Ar-l. 


[character 


blank 
[ 


w *¥* KF—- OPO-—- +ra 


EBCDIC 


80-Column 
Card Code 


no punches 


12-8-2 
12-8-3 
12-8~4 
12-875 
12-876 
12-38-7 
12 
11-8-2 
11-873 
11-8-4 
11-875 
11-8-6 
11-877 
11 

O-1 
0-8-3 
0-8-4 
0-8-5 
0-8-6 
0-8-7 
8-2 
8-3 
8-4 
8-5 
8-6 
8-7 
12-1 
12-2 
12-3 
12-4 
12-5 


BCL 


96-Column 
Card Code 


no punches 
B-A-87-2 
B-A-8-2-1 
B-A-87-4 
B-A-87-47-1 
B-A-8-4-2 
B-A-87-47-2-1 
B-A 

B-8-2 
B-8-2-1 
B-8~-4 
B-8-4-1 
B-8-4-2 
B-8-4-2-1 
B 

Coat bi 
A-8-2-1 
A-8-4 
A-8-4-1 
A-8-4-2 
A~-87-4-2-1 
8-2 

8-2-1 

8-4 

8-4-1 
8-4-2 
8-4-2-1 
B-A~-1 
B-A~2 
B-A7~2-1 
B-A~4 
B-A747-1 
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EBCDIC 


80-Column 
Card Code 


12-6 
12-7 
12-8 
12-9 
li-l 
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Punch Card Codes for the B 1800/B 1700 Character Set 


[Character 


BCL 


96-Column 
Card Code 


B-A-4-2 
B-A~-4-2-1 
B-A-8 
B-A-8~-1 
B-1 

B-2 
B-2-1 
B-4 
B-4-1 
B-4-2 
B-4-2-1 
B-8 
B-8-1 
A-2 
A-2-1 
A~-4 
A-4-1 
A-4-2 
A~4-2-1 
A-8 
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APPENDIX B 


HEXADECIMAL VALUES FOR THE 
B 1800/B 1700 CHARACTER SET 


Table B-l presents the RPG collating sequence, and table B-2 may be used in 
converting hexadecimal digits to binary code. In table B-1l, the zone portion 
of a character is represented by the first hex digit, and the digit portion of 
the character is represented by the second hex digit. 


Table B-1. B 1800/B 1700 RPG Collating Sequence 


Hexadecimal Hexadecimal 
40 : 7D 


blank 
[ 4A = TE 
4B : 7F 
< 4C A Cl 
( 4D Ascending B C2 Ascending 
+ 4k Order C C3 Order 
| 4F D C4 
& 50 E C5 
] 5A F C6 
$ 5B G C7 
* oC H C8 
) 5D I C9 
; 5E : DO 
ae 5F J D1 
a 60 K D2 
/ 6A L D3 
: 6B M D4 
% 6C N DS 
_ 6D O D6 
= 6E Pp D7 
? 6F Q D8 
TA R D9 
# 7B S E2 
@ 7C T E3 
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Hexadecimal 


Table B-1. B 1800/B 1700 RPG Collating Sequence (Cont) 


E4 


Table B-2. 


Ascending 


Order 


Character 


Hexadecimal 
Equivalent 


F2 


Hex to Binary Conversion Table 


Hex 
Digit 


qHrmHoeaAowWwere Oo AN KD KF WD 


Binary 
Equivaient 


oool 
0010 
ooll 
0100 
0101 
0110 
O1l11l 
1000 
1001 
1010 
1O11 
1100 
1101 
1110 
lili 


Ascending 
Order 


— 


EN 
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BURROUGHS INDICATOR SUMMARY FORM 


The RPG Indicator Summary Form, illustrated in figure C-l1 is used strictly for 
documentational purposes. Its function is to provide an accurate record of 
the indicators that are used and the function of those indicators in the RPG 
Program, 


Burroughs B 1700 RPG 
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Figure C-1. Burroughs Indicator Summary Form 


The indicator Summary Form fields and their content are: 


Column Content 
6 Form type (optional predefined F). 
7 Asterisk required - causes complete card to be 


commented, 
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Column Content 
8-10 Record identifying indicator. 
11-13 Input field indicators. 
14-16 Calculation resulting indicators. 
17-19 Matching and chaining indicators. 
20-22 Control level, Overflow, Halt, and User indicators. 
237-74 Function of the indicators described in columns 8-22. 
757-80 Program ID. 


C-2 


GENERAL 


GO385 


GO95 


G304 


G306 


G315 


G524 


G999 


APPENDIX D 


COMPILE-TIME ERROR AND 
DIAGNOSTIC MESSAGES 


FILE NAME NEVER DEFINED 
A file name has been referenced that has never been defined 
in File Specification. 


INVALID AND/OR LINE SPECIFICATION 


Ul - U8 MAY BE SET EXTERNALLY ONLY 

These external indicators may not be set programmatically 
and should only be used to indicate at execution time 
whether or not the file is to be used by the program. 


INDICATOR NEVER DEFINED 
This message is caused by an indicator being tested that 
has never been set. 


FIELD NAME NEVER DEFINED 
This message is caused by an undefined variable name being 
referenced. 


CHAINING KEY LENGTH NOT EQUAL CHAINED FILE KEY LENGTH 
This message indicates that the key length specified on 
the File Specification does not agree with the variable 
used to initiate chaining. 


DATA NOT NEEDED/EXPECTED IN THIS CARD 


FILE DESCRIPTION SPECIFICATIONS 


Refer to Section 4 for further information. 


FO23 - INVALID FILE NAME 


FO24 - 


FO26 


The message is caused by an invalid file name in columns 
7-14. A file name must be unique in the first seven char- 
acters, 


REDEFINED FILE NAME 
The file name specified in columns 7-14 does not contain 
a unique name in the first seven characters. 


INVALID FILE TYPE 

This message is caused by an illegal entry in column 15 
of the File Specification form. Valid entries are I, O, 
U, C, and D. 
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F028 


F033 


F036 


FO39 


F042 


F044 


F044 


F046 


F049 


FOS2 


F056 


FO57 


INVALID FILE DESIGNATION 

This message is caused by an illegal entry in column 16 
of the File Specification form. Blank must be used for 
output files; otherwise one of the following entries are 
required: P, 8S, C, T, or D. 


NO SEQUENTIAL INPUT FILE FOUND 
A primary or secondary file is required. 


INVALID END OF FILE ENTRY 
This message is caused by an invalid entry in column 17. 
Valid entries are blank or E. 


INVALID SEQUENCE ENTRY 
This message is caused by an invalid entry in column 18. 
Valid entries are A, D, or blank. 


INVALID BLOCK-RECORD LENGTH 

When the Block and Record length contain blanks, a default 
of 132 is assumed for print files, and 80 for all other de- 
vices. When the block length is blank, it will assume the 
record length. When the block and record length contain 
valid numbers, the block length must be an integral part 

of the record length. 


MULTI BUFFERS AND STACKER SELECTION ON SAME FILE ; 
stacker selection may not be used when multiple buffers are 
specified, owing to the processing of the records from the 
buffer areas. 


INVALID ENTRY TYPE OF ORGANIZATION 
This message is caused by an invalid entry in column 32. 
Valid entries must contain I, 17-9, or blank. 


INVALID ENTRY ADDITION-~UNORDERED 
This message is caused by an invalid entry in column 66. 
Valid entries are U, A, or blank. 


INVALID/MISSING EXTENSION CODE 

This message is caused by an invalid entry in column 39. 
Valid entries are blank or E for table files; L may be 
specified for print files. 


INVALID DEVICE 

This message is caused by an invalid device specified in 
columns 40746. Valid entries are READER, MFCU1, PUNCH, 
PRINTER, PRINTR2, TAPE, DISK, SPO, or CONSOLE. 


INVALID FILE FORMAT/FILE CLOSE 
This message is caused by an invalid entry in column 19. 
Valid entries are F, V, or blank. 


INVALID INDICATOR MUST BE U1-U8 
This message is caused by an invalid entry in columns 717-72. 
Valid entries are U1-U8 or blank. 
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F400 ~ INVALID ENTRY MODE 
This message is caused by an invalid entry in column 28. 
This field must contain R or blank. 


F404 - INVALID ENTRY ADDRESS TYPE 
This message is caused by an invalid entry in column 3l. 
Valid entries are A, K, P, N, or blank. On indexed files, 
this field specifies the format of the key; it must be 
left blank if the file is not indexed. 


F407 - INVALID ENTRY ADDITION-UNORDERED 


F543 - INVALID KEY LENGTH ENTRY 
The key length is required when using indexed processing. 
When used, this field (columns 297-30) must contain a valid 
number from 1799, and the key length plus the key start 
location must not exceed the record length. 


F549 - INVALID KEY START LOCATION 
The key start location field is required when using in- 
dexed processing. This field (columns 35-38) must contain 
a valid number, and the key start location plus the key 
length must not exceed the record length. 


F553 —- INVALID KEYS IN CORE ENTRY 
The keys in core entry (columns 60-65) must contain a 
valid number not exceeding 9,999. 


EXTENSION SPECIFICATIONS 
Refer to Section 5 for further information. 


E061 —- CHAINING FIELD FOR THIS LEVEL NOT DEFINED ON INPUT 
This message indicates that automatic chaining has been 
specified, and the corresponding level has not been 
specified on input. 


EQ62 - INVALID FROM FILE NAME ENTRY 
This message is caused by an invalid entry in columns 11718. 
It is used as the file name of every execution~time vector, 
but must be left blank if the vector is to be loaded at 
compile time or via Input or Calculation Specifications. 


E063 - INVALID TO FILE NAME ENTRY 
This message is caused by an invalid entry in columns 19726. 
It is used as the file name of a vector file that is to be 
written or punched. A valid file name must be used as well 
as being previously defined on the File Description Specifi- 
cation form. 


E067 - INVALID VECTOR NAME 
This message is caused by an invalid table or array name in 
column 277-32. Valid vector names cannot exceed six char-~ 
acters and must be unique. Table names must begin with the 
letters TAB. 
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E068 


E070 


E072 


E074 


E076 


E077 


E079 


E122 


E228 


E315 


INVALID ENTRY NUMBER OF ENTRIES PER RECORD 

This message is caused by an invalid entry in columns 33735. 
This field must contain a valid number. This entry times 
the length of Vector A plus the length of Vector B (if 
applicable) must not be greater than the From File length 
or (if applicable) 96. 


INVALID ENTRY NUMBER OF ENTRIES PER VECTOR 

This message is caused by an invalid entry in columns 36-39. 
This entry must be a valid number limited only to the size 
of the field. 


INVALID ENTRY LENGTH OF ENTRY 

This message is caused by an invalid entry in columns 407-42/ 
52-54. This entry must be a valid number specifying the 
length of the entry of the vector. Alpha entries must not 
exceed 511 and numeric entries 3l. 


INVALID ENTRY PACKED 

This message is caused by an invalid entry in column 43/55. 
Valid entries are blank and P. P is only allowed on numeric 
fields. 


INVALID DECIMAL POSITIONS 
This message is caused by an invalid entry in column 44/56. 
Valid entries are 07-9 or blank. 


INVALID SEQUENCE ENTRY 
This message is caused by an invalid entry in column 45/57. 
Valid entries are A, D, or blank. 


INVALID ALTERNATE VECTOR NAME 

This message is caused by an invalid table or array name 
in columns 467-51. Valid vector names cannot exceed six 
characters and must be unique. Table names must begin 
with the letters TAB. 


REDEFINED VECTOR NAME 

This message is caused by a vector name that has been rede- 
fined. Vector names must be redefined using the same length, 
type, and decimal positions as used on the first definition. 


INVALID/OUT OF BOUNDS LITERAL -- VECTOR, LITERAL 
Literals must contain digits O-9 and cannot exceed the size 
of the vector. 


INVALID/UNDEFINED FIELD NAME -- VECTOR, FIELD NAME -- 
This message is caused by an illegal field name or a field 
name that has not been defined. 


LINE COUNTER SPECIFICATIONS 


Refer to Section 6 for further information. 


LO85 - INVALID FILE NAME OR FILE TYPE 


This message indicates that a file name in columns 77-14 is 
not valid or has not been assigned to a print file. The 
file name must also have been previously defined on the File 
Specification. 


LO88 - WHEN DEFINED ~-FL- 
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MUST BE IN COL 18-19 


LO90 - INVALID CHANNEL ENTRY 


This message is caused by an illegal channel entry. Valid 


entries are 017-12, OL, or FL. 


LO91L ~ INVALID LINE ENTRY EXCEEDS FORM LENGTH OR 112 


1084 


1092 


1092 


1093 


T094 


1097 


T101 


1102 


1103 


1107 


1109 


The line position entry must not exceed the form length 
or 112. 


INPUT SPECIFICATIONS 


Refer to Section 8 for further information. 


RECORD LINE ASSUMED 43-70 TREATED AS BLANK 


INVALID FILE NAME 

This message indicates that the file name in columns 7-14 
is not valid or has not been assigned to an input file. 
The file name must also have been previously defined on 
the File Specifications. 


FILE NOT DEFINED AS INPUT 

The file type in column 15 of the File Specification form 
has not been specified as I, U, C, or D. 

FIELD LINE ASSUMED 7-42 TREATED AS BLANK 


RECORD LINE WITH FILE MUST BE FIRST INPUT SPEC 
The first Input Specification must contain a file name, 


NO FIELDS DEFINED IN LAST RECORD 


SEQUENCE FIELD SPECIFICATION 


This message is caused by an invalid entry in columns 157-16. 


It must contain a valid sequence entry, either 2 alpha 
characters other than ND or Rb, or a numeric entry from 
01-99 in ascending order within the file. 


INVALID ENTRY ~NUMBER- 
The number position entry in column 17 must contain 1 or N 
if the sequence entry is numeric, or blank if alphabetic. 


INVALID ENTRY -OPTION- 

This message is caused by an invalid entry in column 18. 
Valid entries are O and blank. The O may only be used on 
numerical entries, and one numerical entry should be non- 
optional. 


INVALID RECORD ID CODE 
This message is caused by an invalid entry between 21741. 
The position entry must fall within the record length. 


INVALID ENTRY -STACKER- 
This message is caused by an invalid entry in column 42, 
Valid entries are blank and 17-6 on card files. 
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T11i1 


T113 


1118 


T1i19 


1120 


1122 


T122 


T159 


1166 


1170 


1172 


T1i8l1 


INVALID PACKED ENTRY 

This message is caused by an invalid entry in column 43, 
Valid entries are P or blank. P may be specified only on 
numeric field lines, and if specified, column 52 (decimal 
positions) must not be blank. 


INVALID FROM TO ENTRY 

The FROM and TO entries must be valid numbers and cannot 
exceed the record length. Numeric fields must not exceed 
31. Alpha fields must not exceed 511. Vector load ele- 
ments must be the same length as the element defined on 
the Extension Specifications, and the entire array load 
must not be greater than the array length and modulo the 
element length. 


INVALID FIELD NAME 
This message is caused by an invalid field name in columns 
937-58. 


INVALID CONTROL LEVEL INDICATOR 
This message is caused by an invalid entry in columns 59-60. 
Valid entries are blank and level indicators L1-L9. 


INVALID ENTRY MATCHING-CHAINING FIELD 
This message is caused by an invalid entry in columns 61762, 
Valid entries are blank, M1-M9, and C1-C9. 


REDEFINED FIELD NAME - LOOKAHEAD 
A look-ahead field name must be unique. 


REDEFINED FIELD NAME 
When used, a duplicate field name must contain the same 
length and decimal positions entry as the original. 


INVALID RECORD INDICATOR 
This message occurs when columns 19720 do not contain a 
valid indicator or look-ahead, 


INVALID FIELD RESULTING INDICATOR 
This message occurs when columns 65-70 do not contain blanks 
or a valid indicator. 


INVALID ENTRY FOR CHAIN OR DEMAND FILE 
Chain or demand files may not contain control levels or 
matching fields. 


INPUT FILE ORDER IS DIFFERENT FROM FILE SPEC 
The input files must be in the same order as defined on the 
File Specifications. 


REDEFINED LENGTH OF MATCHING~CHAINING FIELD 

REDEFINED LENGTH OF CONTROL FIELD. 

This message indicates that the total length of a given 
level on the current record is not identical to the total 
length of the same level of a previous record. 


“= 
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1188 - INVALID RECORD RELATION INDICATOR 


1226 - 


19575 7 


This message is caused by an invalid entry in columns 63-64. 
This field must contain a valid indicator or blank. 


INVALID ENTRY DECIMAL POSITIONS 

The decimal positions entry in column 52 must contain a 
blank or 0-9. On vector loads, the decimal positions entry 
must be the same as the defined element. 


UNREFERENCED OR MISGROUPED REFERENCE OF FILE NAME 

This message indicates that an Input Specification has been 
referenced that has not been declared in the File Specifi- 
cation, or that the file names appear more than once and 
not consecutively, or that it does not appear in the same 
order as the File Specification. 


CALCULATION SPECIFICATIONS 


Refer to Section 9 for further information, 


C122 


C122 


C123 


C125 


C128 


C131 


C135 


C135 


REDEFINED FIELD NAME 

This message indicates that the name defined in the result 
field has been previously defined with different length 
and decimal positions. 


REDEFINED FIELD NAME ~- LOOKAHEAD 

This message indicates that the name defined in the result 
field has been previously defined as a look-ahead field with 
different length and decimal positions. 


INVALID CONTROL LEVEL INDICATOR 

This message is caused by an invalid entry in columns 778. 
Valid entries are LO-L9Y, LR, AN, OR, and, when in a sub- 
routine, SR. 


INVALID FACTOR 1 

The field in columns 18-27 containing Factor 1 must be 
present if required, or absent if not required as speci- 
fied by the Operation Code. When present, it must bea 
legal variable. 


INVALID OPERATION CODE 
The operation code specified in columns 28-32 is not legal. 


INVALID FACTOR 2 

The field in columns 337-42 containing Factor 2 must be 
present if required, or absent if not required as specified 
by the operation code. When present, it must be a legal 
variable, 


INVALID RESULT FIELD 

The field in columns 437-48 containing the result field must 
be present if required, or absent if not required as speci- 
fied by the operation code. When present, it must be a 
legal variable but may not contain a literal. 


INVALID RESULT FIELD NAME 


D~-7 
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C137 


C138 


C140 


C190 


C200 


C207 


C207 


C214 


C215 


C221 


C232 


C304 


C519 


INVALID RESULT FIELD LENGTH 

This message is caused by an invalid entry in columns 49-51. 
The result field length must contain a valid number between 
1-31 for numeric fields or between 1-511 for alpha fields. 


INVALID DECIMAL POSITIONS 
This message is caused by an invalid entry in column 52. 
Valid entries are blank and 07-9. 


INVALID ENTRY HALF ADJUST 

This message is caused by an invalid entry in column 53. 
Valid entries are blank and H. H may only be used with 
arithmetic operators. 


INVALID BEGSR/ENDSR RELATIONSHIP 

This message is used in conjunction with subroutines. Each 
subroutine must begin with a BEGSR and end with an ENDSR, 
and may not contain another subroutine. 


INVALID RESULTING INDICATOR 
This message is caused by an invalid indicator or one that 
should not have been specified. 


INVALID ALPHA LITERAL 
Alpha literals must be contained in apostrophes and must 
follow the rules for forming literals. 


INVALID NUMERIC LITERAL ; 
This message is caused by an invalid numeric literal. Nu- \ 
meric literals start with +, ~, -, or O-9 and may contain 

only one comma or one decimal point, with no embedded blanks, 

and only digits 079. 


INVALID GOTO - TAG OR EXSR - BEGSR RELATIONSHIP 

GOTO operations are valid only in conjunction with TAG and 
ENDSR labels. EXSR operators must be associated with a 
BEGSR. 


FACTOR 1 AND FACTOR 2 BOTH LITERALS 
It is illegal to have literals in both Factor 1 and Factor 2, 


RESULT FIELD MAY NOT BE LARGE ENOUGH 
This warning occurs when an overflow condition is likely 
to occur, which would cause high order digits to be lost. 


INVALID OR DUPLICATE TAG, BEGSR, OR ENDSR NAME 


INVALID INDICATOR 
A conditioning indicator must be specified on AND/OR lines 
and must be a valid indicator. 


INVALID AN —- OR ENTRY 


This message is caused by an illegal entry. The last of a 
series of AND/OR lines must contain a calculation operation. 
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OQUTPUT-FORMAT SPECIFICATIONS 


Refer to Section 10 for further information. 


0097 ~- NO FIELDS OR LITERALS DEFINED IN LAST RECORD 

0142 - RECORD LINE ASSUMED 32-70 TREATED AS BLANK 

0143 - INVALID OUTPUT RECORD TYPE 
This message is caused by an invalid entry in column 15. 
Valid entries are H, D, T, or E. This entry may also 
contain an N or R on AND/OR lines. 

0146 - INVALID FILE NAME 
This message indicates that the file in columns 7-14 is 
not valid or that it has not been previously defined on 
the File Description Specifications as an output file. 

0148 - INVALID FIELD NAME 
This message is caused by an invalid entry in columns 32737. 
A field name previously defined on Input, Extension, or 
Calculations Specification may be used, or one of the 
special reserved words may be used. 

O150 - INVALID BLANK AFTER ENTRY 
The blank after entry in column 39 must contain a blank 
or B. 

0151 - INVALID ENDING POSITION 
This message is caused by an invalid entry in columns 40-43, 
This entry must contain a valid number that must not exceed 
the record length of the file, and the length of the field 
must not underflow the record. This must also include the 
size of the editing symbols when used. 

0152 - INVALID PACKED ENTRY 
This message is caused by an invalid entry in column 44, 
Valid entries are blank or P. When P is specified, a 
numeric variable must be described in columns 32-37. 

0154 - RECORD LINE WITH FILE MUST BE FIRST OUTPUT SPEC 
@he first Output Specification must be a record line con- 
taining a file specification. 

0154 - FIELD LINE ASSUMED 7-22 TREATED AS BLANK 

0212 - EXCPT CALC WITHOUT EXCEPTION OUTPUT RECORD TYPE 
The EXCPT operation code has been used when no Exception 
output records have been defined. 

0256 - INVALID STACKER/FETCH ENTRY 


This message is caused by an invalid entry in column 16. 
Valid entries on punch files are 1-6, and on Print files, 
are F or blank. 
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0258 - 


0273 - 


0276 - 


O277 — 


0279 —- 


0283 - 


0289 - 
0548 - 


0554 - 


0998 - 


0999 - 


INVALID SPACE/SKIP ENTRY 

This message is caused by an invalid entry in columns 17-18 
or 19-22. Valid entries for Spacing are blank, 0, or 179; 
for Skipping, 0-99, AO-A9, or BO-B2; and must only be used 
on Print files. 


INVALID OUTPUT INDICATOR 

The output indicators in columns 23-31 must contain a 
blank or a valid indicator. Valid indicators are 01-99, 
LO-L9, LR, MR, HO, H9, U1-U8, OA-OG, OV, or IP. 


INVALID EDIT CODE 

Column 38 must contain a blank if the field name field 
contains an alpha variable or literal; when numeric, it may 
contain a blank, 1-4, A-B-C-D, J-~K-L-M, or X-Y-Z. 


INVALID EDIT WORD 

The number of replaceable characters in the edit word 
(columns 45-70) must be equal to or greater in length than 
the length of the field to be edited. 


INVALID CONSTANT SIZE 


INVALID FILE TYPE FOR OUTPUT RECORD 
The file type has not been defined as O, U, C, or an input/ 
add file. 


*PLACE OR *PRINT PRECEDES ALL FIELDS AND CONSTANTS 


INVALID FILE ADDITION 
The file referenced has not been declared as an add file 
but ADD was specified. ADD will be assumed. 


ADD NOT SPECIFIED ASSUME -ADD- 

All files, except update files, using "A" in column 66 in 
the File Specifications should have "ADD" in columns 167-18 
of each record in the output of the corresponding file. 


EDIT TO BE PERFORMED ON ALPHANUMERIC FIELD 
Only numeric items may be edited. 


BLANK AFTER INVALID FOR OUTPUT LITERAL 
Blank after may not be used after an output literal. 


DOLLAR CARD SPECIFICATIONS 


Refer to Section ll for further information. 


D~-10 


DOLI - 


DOL2 - 


INVALID ENTRY ~NEGATE- 

This message is caused by an invalid or illegal entry in 
column 8. Valid entries are blank or N; however, on some 
Dollar Card Specifications, it is illegal to use the Not 
option. 


INVALID ENTRY ~KEYWORD- 
This message is caused by the keyword entry not containing 
a valid option. 


yarn 
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DOL3 ~ INVALID ENTRY ~-VALUE- 
This message is caused by an illegal entry in the value 


field of the $ option. Alpha entries must contain a char- 
acter from A to Z in column 15, and numeric entries must 
contain blanks or zeroes in columns 15 and 16. 


~~ 
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EXECUTION-TIME ERROR MESSAGES 


Certain conditions may arise during program execution which require operator 
notification and, in most cases, acknowledgment. Some program errors are 
recoverable, and some are not. For more information, refer to B 1800/B 1700 
Systems, System Software Operational Guide, Form No. 1068731. 


INPUT ERROR MESSAGES 


The following messages all denote error conditions arising during input, and 
all are recoverable. For each error condition, the program requests a reply 
from the operator. A GO response, <program job number>AXGO, causes the pro- 
gram to ignore the erroneous record and read the next record from the same 
file. A STOP response, <program job number>AXSTOP, causes the program to 
ignore the erroneous record, set the LR indicator on, and perform all final 
detail output, total calculations, and total output. 


IDENT HALT 


The occurrence of the following message results from reading an unidentifiable 
input record (that is, none of the designated Record Identification Codes for 
the file could be found in the record read): 


<program-name> = <program job number> : IDENT 
MSEQ HALT 
The occurrence of the following message results from reading a record that is 
out of sequence when matching records are specified (the indicators M1-M9 in 
columns 617-62 of the Input Specifications). All records in matching files must 
be in either ascending or descending sequence. 

<program-name> = <program job number> : MSEQ 
SEQ HALT 
The occurrence of the following message results from reading a record which is 
out of sequence, as specified by the entries in columns 15-18 of the Input 
Specifications: 

<program-name> = <program job number> : SEQ 
REOF HALT 
The occurrence of the following message results from reading a demand file 
which is at End-of-File and no indicator is specified in columns 58-59 of the 


Calculation Specifications: 


<program-name> = <program job number> : REOF 


READ ERROR HALT 


The occurrence of the following message results from reading a file that con- 
tains an error (for example, a parity error): 


<program-name> = <program job number> : READ ERROR 
PROGRAMMED HALTS 


The following message is displayed at the end of a program cycle if any of 
the halt indicators (HO-H9) are set. Each n is either blank (indicator not 
set) or a number O-9 (indicator set). 


<program-name> = <program job number> : HALT nnnnnnnnnn 


If the HO, H3, H4, H?, and H9 indicators are set, the following message 
appears: 


<program-name> = <program job number> : HALT 0..34..7.9 


Yrollowing this message, the program requests a reply from the operator. A GO 
response, <program job number>AXGO, turns off all halt indicators and the pro- 
gram continues processing. A STOP response, <program job number>AXSTOP, sets 
the LR indicator on and the program performs all total calculations and output. 
If the LR indicator is on when a halt occurs, the program displays the halt 
message and continues without waiting for an operator response. 


FORMS POSITIONING 
The following message is displayed after all output lines conditioned by the 
1P indicator are printed and FORMS POSITIONING is specified (the number 1 in 
column 41 of the Control Specification): 

<program—-mix> = <program job number> : AGAIN? 
After the message is displayed, the program requests a reply from the operator. 
A YES response, <program job number>AXYES, causes all output lines conditioned 
by the 1P indicator to be printed again, and the message is repeated. 


A NO response, <program job number>AXNO, causes normal processing to continue. 


Printing of all output lines conditioned by the 1P indicator can be requested 
as many times as necessary in order to align the forms properly. Requests for 


forms positioning occurs only when the file writes directly to the line printer. 


ARITHMETIC ERRORS 

DIVIDE BY ZERO HALT 

The occurrence of the following message results from an attempt to perform a 
DIV (divide) operation using a divisor of zero. The MCP automatically discon- 


tinues (DS-ED) the program. 


<program-name> = <program job number> : DIVIDE BY ZERO 


i 
rn mh 


SQRT HALT | 


The occurrence of the following message results from an attempt to perform a 
SQRT (Square root) operation on a negative argument: 


<program-name> = <program job number> : SQRT 


Following the message, the program requests a reply from the operator. A GO 
response, <program job number>AXGO, sets the value contained in the RESULT 
FIELD to zero, and the program continues processing. A STOP response, <program 
job number>AXSTOP, sets the LR indicator on, and the program performs all 

final detail, total calculation, and total output. 


VECTOR (ARRAY, TABLE) ELEMENT ERRORS — INVALID SUBSCRIPT HALT 

The occurrence of the following message results from an attempt to reference 
a vector element that is out of bounds, that is, an index value less than or 
equal to zero, or greater than the maximum size of the array as specified in 
columns 36-39 of the Extension Specifications. The MCP automatically discon- 
tinues (DS-ED) the program. 


<program-name> = <program job number> : INVALID SUBSCRIPT 
PRE-EXECUTION TIME VECTOR — VSEQ HALT 


The occurrence of the following message results from reading a pre-execution 
time vector record which is out of sequence as specified by the contents of 
the SEQUENCE fields in the Extension Specifications. Any response causes the 
program to terminate. 


<program-name> = <program job number> : VSEQ 
SEQUENCE ERROR — KEYSEQ HALT 
The occurrence of the following message indicates that the indexed data file 
has a key which is out of sequence. Any response forces end-of-job. The pro- 
geram's data file requires resorting or the program loading the file or updat- 
ing the file requires reworking. 

<program-name> = <program job number> : KEYSEQ FOR FILE = <filename> 
LIMITS FILE — LIMITS PAIR ERROR 
When processing a file within limits by means of a limits file and the low 
record key is greater in value than the high record key, the following mes- 
Sage occurs: 

<program name> = <program job number> : LIMITS PAIR 

MUST BE IGNORED FOR FILE = <filename> 

LOW KEY GREATER THAN HIGH KEY 
If the limits pairs are entered through the console, then the program waits for 
the operator to re-enter the correct limits pair before processing continues. 


If the limits pairs are not entered through the console, the program ignores 
the erroneous limits pair and reads the limits file for the next limits pair. 


INVALID TAG FILE/DATA FILE MESSAGES 


The following message occurs when a tag file contains a record which is 
out-of-bounds: 


<program name> = <program job number> FILE = <filename>, TAGFILE 
POINTS TO INVALID DATA RECORD (KEY = O OR KEY GTR EOF) 
The program terminates with the following response: 


<program job number>AXx 


_" 


APPENDIX F 


RPG/BIF PROGRAM 


RPG/BTF (Build Tag File) is a utility program which creates a tag file from 
an existing indexed sequential data file on disk. 


RPG/BTF RULES 


The following rules apply to RPG/BTF: 


ae 


The data file is not required to be in key sequence order. The tag 
file is built in the proper sequence. 


When a duplicate key is encountered ina data file, an error message 
on the line printer specifies the relative record numbers of both 
records. In addition, the tag file is not entered in the disk direc” 
tory. 


The RPG/BTF program can handle key fields up to 29 bytes in length 
for indexed files and 99 bytes for B-indexed files. [If column 3l, 
RECORD ADDRESS TYPE, of the File Description Specification is left 
blank, then alphanumeric keys are assumed. 


RPG/BTF INPUT 


Input to RPG/BTF can consist of the entire RPG source program; however, 
RPG/BTF ignores all but the following cards: 


Ae 


The Control Card Specifications with an "R" or "L" (blank) in 
column 17. The default is "L" when the Control Card Specifications 
are not included in the input to RPG/BTF. 


The $ RSIGN dollar option card. This dollar option must appear prior 
to each File Description Specification when the indexed data file is 
right~signed and "R" is not specified in column 17 of the Control 
Card Specifications. $ RSIGN/$NRSIGN can be used when selected files 
are right~signed and others are left~signed. 


The $ PACKID, $ FAMILY, and $ FILEID dollar option card. These 
dollar options must be correctly related to each indexed file's File 
Description Specification when the external file name is different 
from the internal file name. 


File Description Specifications for each tag file to be built. Tag 
files are created for File Description Specifications that are 
declared as input, update, or output with additions. Each File 
Description Specification describes the indexed data file to the 
RPG/BTF program. This gives the RPG/BTF program the following in- 
formation: 


1. Key length in bytes. 


2. Key type (alphanumeric, numeric, or packed). 


3. Key field starting location of each record in the data file. 


All other source cards are ignored. 


RPG/BTF FUNCTIONS 


The following functions are performed by the RPG/BTF program: 


Ae 


First, the RPG/BTF program reads from a card file called RPG/CARD. 
This card file may contain the entire RPG source program. The in-~ 
formation required to build the tag file is obtained from each File 
Description Specification in the RPG source program that defines an 
indexed file. Files must be declared input, update, or output with 
additions. 


Next, the RPG/BTF program locates each indexed data file on disk in 
the order in which they appear in the File Description Specifications 
section of the RPG program. If a data file is not on disk, the 
RPG/BTF program continues with the next indexed data file described 
in the RPG source program; the message "FILE NOT ON DISK" appears 

in the printer error file called TAGFILE/INFO. 


A tag file is then created for each indexed data file located on 

disk. Each tag file contains the keys and relative record numbers 

of each record in its corresponding indexed data file. The keys in 
the new tag file remain unchanged from the keys in the data file. 

The relative record number, which is the position number of the record 
in the data file, also remains unchanged. 


After the tag file is created, RPG/BTF invokes the SORT/VSORT utility 
which sorts the tag file records by key in ascending order. 


After sorting, the RPG/BTF program locks the tag file in the Disk 
Directory and returns to step a. When the input card file, RPG/CARD, 
is exhausted, the RPG/BTF program goes to End-of-Job. 


Table F-1 illustrates the internal and external file~names of the tag file. 


Table Frl. Internal and External File Names 
of the Tag File and Data File 


Data File Data File Tag File Tag File 
Internal External Internal External 
File Name File Name File Name File Name 


DISK A/ABCDEFGHI J TAGDISK A/TAGABCDEFG 


DISKIN TAGDISKIN DISKIN/TAG 
DISK CCC/A/B TAGDISK CCC/A/TAGB 
DISK A/ABCDEFGHI J TAGDISK A/TAGABCDEFG 
DISK A/B/ TAGDISK A/B/TAG 


Table F-2 shows the internal and external file names, 
functions of the files used by the RPG/BTF program. 


associated devices, and 


Table F-2. Internal and External File Names of RPG/BTF 


Internal External Function or 
File Name Device File Name Description 


LINE Printer TAGFILE/INFO 


CARDS Card RPG/CARD 


DATA. FILE Disk BOBB/DATA. FILE 


TAG. FILE BOBB/TAG. FILE 


The following example illustrates the cards necessary 
indexed files INDEX and USER/RPG/TEST. 


Example: 


? EXECUTE RPG/BTF 
? DATA RPG/CARD 


H (optional) 

FINDEX IPE F 180 60. OPI 10 DISK 
$ PACKIDUSER 
$ FAMILYRPG 
$ FILEIDTEST 


FTEST IS F 180 180 30AI 125 DISK 


Error listing 
for RPG/BTF. 


Input file 
for RPG/BTF. 


Workfile used 
to input data 
file. 


Workfile used 
to build and 
sort tag file. 


to build tag files for 


(Remainder of RPG source deck is not required) 


2 END 


APPENDIX G 


TAGSORT WITH RPG 


TAGSORT is a method of sorting records in an input file by creating a tag file 
by which the input file is sorted. The tag file is placed on disk and may be 
referenced by any RPG program which contains the original input file for which 
the tag file was created. 


The method for creating a tag file is discussed in the B 1800/B 1700 System 
Software Operational Guide, Form No. 1068731. 


Basically, the tag file is created by a TAGSORT program which goes through the 
input file, extracting the key field(s) from the record, and adding the po- 
sition of the record, relative to the first record in the file. The tag file 
is then sorted, using the regular sort concept, and leaving a file of relative 
record numbers (4 bytes in length) sorted in the specified sequence. The 
original input file remains unchanged. 


The record address file (TAGFILE) created by the TAGSORT program can be used 
in an RPG program to perform record address (ADDROUT) processing. For 
detailed information, refer to the subsection titled Random Processing - 
Addrout Files in Section 4. 


In the example shown in table G-l, the input file DISKFI is used to build a 
tag file called TAGFILE. Refer to the B 1800/B 1700 System Software Opera- 
tional Guide, Form No. 1068731. 


Table G-1l. Building a Tag File 


ae TAGSORT Program ag eae 

RECD NO 

00001 456 2222 FILE IN DISKFI (DISK (100) 180 1) 00000002 
00002 123 0000 see eee ee 210) A e9) 00000005 
00003. 879 1111 TAGSORT 00000008 
00004 653 3333 00000001 
00005 258 4444 00000007 
00006 785 5555 00000004 
00007 551 6666 00000006 
00008 327 7777 00000003 


00CO09 965 8888 00000009 
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The contents of DISKFI consists of nine records. The first three digits 
comprise the key field, the last four comprise the data field. 


Since DISKFI was sorted by key in ascending order and record number 2 has the 
lowest key value, record 2 is placed in the first position of the tag file. 
Record 5 has the second smallest key (258), so 5 is placed in the second po- 
Sition of the tag file, etc. 


APPENDIX H 


RPG PROGRAM CYCLE 


For each record from a primary or secondary file that is processed, the RPG 
object program goes through the same general cycle of operations. After a 
record is read, there are two different instances in time when calculation 
operations are performed and records written out. First, all total calcula- 
tion operations (those conditioned by control level indicators in columns 
7-8) and all total output operations are done. Second, all detail calcula- 
tion operations and all detail output operations are done. 


Total calculations are performed before the information on the record selected 
for processing is made available. Detail calculations are performed after the 
information on the selected record is made available. The following dis- 
cussion describes this concept in more detail. 


Whenever a record is read, a check is made to determine if information ina 
control field (when one has been specified) is different from the control 
field information on the previous card. A change in the control field in~- 
formation indicates that all records from a particular control group have 
been read and a new group is starting. When all records from a.,group have 
been read (indicated by control level indicators being Soe ON) , operations 
may be done using information accumulated from all records in that group. 

It is at this time that all calculations conditioned by control level indi- 
cators in columns 77-8 are done. Total output operations are also performed 
immediately after all total calculation operations are completed. Informa~ 
tion on the record read at the beginning of the program cycie is not used in 
these operations; only information from records in the previous control group 
is used. 


Detail calculations occur after the information on the selected record has 
been made available. Detail calculations are used to calculate values needed 
each time a record is processed. They are also used to calculate totals for 
the current control group (if control fields are specified). Immediately 
after detail calculation operations are completed, detail output operations 
are performed. 


The specific steps taken in one program cycle are shown in figure H-1l. The 
item numbers in the following description refer to the number in the figure. 
A program cycle begins with step 3 and continues through step 39. 


i Initialization: 


a. Data fields and indicators may have been preset to their initial 
values by the compiler; if not they must be initialized now: 


1) All data fields and vectors are initialized to zero (if 
numeric) or blank (if alphanumeric). 


2) <All match fields are initialized to high (if descending 
sequence) or low (ascending) collating values. 
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Figure H-1l. RPG Program Cycle 
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3) All control field storage areas are initialized to hexa- 
decimal zeroes. 


4) Indicators LO and 1P are set ON, all other indicators are 
set OFF. Under the RPG1 dialect any indicators from 01-99 
used as zero/blank indicators will be set ON, unless also 
used as record identifying indicators. 


b. UDATE, UDAY, UMONTH, UYEAR fields are set. 
c. External indicators are set. 


d. Files are opened (unless files are to be opened automatically 
when first accessed). 


e. The first-control-cycle switch is set on. This is an internal 
Switch used to determine when to suppress total time. 


Pre-execution time vectors are loaded (if specified). 


Detail Output. All heading and detail output operations whose 
indicator conditions are met are performed (this will not include 
output conditioned on overflow indicators). On the very first 
cycle, the option for forms alignment may have been specified. 

If so, step 3 (detail output) is repeated as many times as the 
operator requires. Generally, the programmer will control the 
heading output required on the first cycle by conditioning it on 
the indicator 1P (which will be off for all cycles except the 
first). 


All overflow indicators are set OFF. If any printer file is on the 
overflow line or between the overflow line and the end of the page, 
any overflow indicator associated with that file is set on, 


If any of the halt indicators HO - H9 are on, the program branches 
to step 6; otherwise, to step 7. 


A message is displayed indicating which halt indicators are on. The 
operator has 2 options: 


a. STOP. Program branches to step 13. After performing "last 
record,'' total calculations, and total output, the program will 
terminate. 


b. GO. The program continues at step 7. 


All record identifying indicators are set OFF. 1P, L1-L9 and HO-H9 
are set OFF. LO is set ON. Under the RPG1 dialect LR is also set 
OFF. 


Under the RPG1 dialect, the program will always continue at step 9; 
otherwise, LR is tested. If LR is ON, the program branches to 
step ll; otherwise, to step 9. 


The next input record is read. On the first cycle, one record is 
read from each primary and secondary file. On all subsequent cycles, 
the record is read from the file that was processed last. For an in- 
put (not update or combined) file with look-ahead fields, the record 
will already have been read at step 38 of the previous cycle. 
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10. 


Li. 


12. 


13. 


14. 


15. 


16. 


AA 


18. 


19. 


20. 


21. 


A test is performed to determine whether the file just read is at 
End~of~File or is conditioned by an external indicator which is OFF 
(on the first cycle, the test is whether any of the files read 
satisfy this condition). If yes, the program branches to step 11; 
otherwise, to step 14. 


If this program has a primary file and at least one secondary file 
(i.e., the program performs multifile processing), the program 
branches to step 12, otherwise, to step 13. 


If all required files are at End-of-File (as specified in column 17 
of the File Specifications), the program branches to step 13; other- 
wise, to step 17. 


Indicators LR and LI~L9Y are set ON. 


The record (or in the case of the first cycle, all the records) read 
at step 9 is identified (but the record identifying indicator is not 
yet set ON). A test is performed to determine whether the input 
records are in the sequence specified on the Input Specifications. 
If the record type sequence is incorrect (or if sequenced records 
are specified but the current record cannot be identified), the 
program branches to step 15; otherwise, to step 17. 


The record type sequence error causes the program to halt after 
displaying an appropriate message to the operator. 


The operator may order the program to resume. In which case, the 
out of sequence record is ignored and the next record is read by 
branching to step 9. 


If multiple input files are specified, the program branches to 
step 18 in order to select the next record to be processed. If 
no secondary files are specified, the program continues at step 2l. 


If the FORCE opcode was performed during the previous program cycle, 
the forced file is selected for processing and the program branches 
to step 24. 


The current records from each primary and secondary file are in- 
spected in the order that the files were specified on File Speci- 
fications. The first record that has no match fields is selected 
and the program branches to step 24. If all records have match 
fields, the program branches to step 20. 


The record with the highest priority matching field value (highest 
collating value for descending matching sequence, lowest collating 
value for ascending sequence) is selected to be processed next. If 
two or more files have equal and highest priority matching field 
values, the one with highest priority is selected (priority cor- 
responds to the order in which files were specified on File Speci- 
fications). 


As there are no secondary files, record selection is unnecessary. 
If the current record from the primary file has match fields, the 
program branches to step 22 to perform matching sequence checking. 


22. 


23. 


24, 


25. 


26. 


27. 


28. 


29. 


30. 


31. 


32, 


33. 
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The match field value of the selected record is compared to the 
match field value of the previous record processed. If it is in 
sequence, the program continues at step 24. If the match field 
value is out of sequence, the program branches to step 23. 


The program halts after displaying a message to the operator indi- 
cating that a match field sequence error has occurred. 


The program sets ON the record identifying indicator specified for 
the selected record. However, data from this record is not available 
for processing until step 37. If look-ahead fields are specified for 
update or combined files, they are extracted at this point (all other 
look-ahead fields are not extracted until step 38). 


If the selected record has control fields, a test is performed to 
see if the contents are equal to the contents of the control field 
storage area. If the contents are unequal, a control break has 
occurred; the appropriate control level indicators are set ON and 
the new control field contents are stored in the control field 
storage area. Note that until the first control break occurs, the 
control field storage area contains its initial value of hexadecimal 
zeros. 


If the first-control-cycle switch is ON, the program branches to 
step 29; otherwise, to step 27. 


Total calculations (calculations conditioned by control level indi- 
cators LO-L9Y in columns 778) are performed. 


Total output that is not conditioned by an overflow indicator is 
performed. When this output is complete, the program tests to see 
if the overflow condition has occurred. If any printer file is on 
the overflow line or between the overflow line and the end of the 
page, any overflow indicator associated with that file is set ON. 


If control fields were specified in this program, the program branches 
to step 30; otherwise, to step 3l. 


If a control break occurred on this cycle (at step 25), the program 
branches to step 31; otherwise, to step 32. 


The first-control-cycle switch is set OFF. Total Calculations and 
Total Output will be performed on all subsequent cycles (if no con- 
trol break occurs, only LO operations will be performed). 

If indicator LR is ON, the program branches to step 33. 


End-~of-Job routine. 


a. Output any vectors specified with a TO FILENAME on the Extensions 
Specifications. 


b, Perform any file maintenance e.g., sorting an indexed file if 
unordered or if additions have been made. 


c. Close all files. 
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34. 


35. 


36. 


37. 


38. 


39. 


Overflow output is performed for each printer file on which overflow 
has occurred on this cycle. The test and the output performed take 
one of two forms. If an overflow indicator is assigned to the file 
on File Specifications or if overflow output is specified on Output 
Specifications for the file, the test is whether the overflow in- 
dicator for that file is ON (it may have been set ON by SETON; it 
may also have been set OFF if overflow output has been Fetched). If 
so, any Total and then any Detail output for that file which is con- 


ditioned on the overflow indicator is performed (if none is specified, 


no overflow output will be performed). The overflow indicator is 
then set OFF. 


If no overflow indicator is assigned and no overflow output is 
specified for the file, the test is whether the overflow condition 
was satisfied in steps 4 or 28. If overflow did occur and has not 
been Fetched, the object program automaticaily generates a skip to 
line 1 of a new page. 


The matching record indicator MR is set ON or OFF. MR is set ON if 
a match has occurred (i.e., if selected record has a match field and 
the current match field value was originally selected from a pri-~ 
mary record). 


Data is extracted from the current record and made available for 
processing. Any field indicators specified are set ON or OFF to 
reflect the status of the data fields. 


If the current record is from an input (not update or combined) file 
which has look-ahead fields, the next record from that file is read, 
and the look-ahead fields are extracted and made available to the 
program. 


Note that look-ahead fields from an update and combined file are made 
available at step 24. 


Detail time calculations are performed. Processing continues with 
step 3. 
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number of entries per array, 57-4 
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Summary Sheet, 5-2 
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examples, 10-33 
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B 1800/B 1700 card codes, A-1 thru A-3 
B 1800/B 1700 Standard Label, 4-29 
B-INDEXED files, 3-1, 47-13 
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thru 8-24, 10-2, 10-27 

Output Specifications, 10-27 
binary field operations, 9-34 

BITOF, 9-34 

BITON, 97-33 

TESTB, 9-34 
binary format, 8-20, 8-22 thru 8-24, 

10-2, 10-27 

rules for, 8-22 thru 8-24 
binary to hexadecimal conversion, 
BITOF operation code, 9-34 
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blanks in edit words, 10-30, 
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coding of, 8-17 thru 8-19 
C/Z/D field, 8-17 thru 8-19 
Calculation Specifications, 9-1 

field definitions, 9-1 thru 

oF 11 

operations. See operation codes 

Calculation-time exception records, 


10-4, 10-5 
calculations 
controlling, 9-3, 9-4 
DMS, 13-16 thru 137-22 
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Operations 
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13-34 
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specification sheet, 9-2 
subroutines in, 9-42, 9-43 . 
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10-19, 10-20 
CASSET dollar option, 
CHAIN operation code, 
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device assignment of, 4-27 
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arrays, o7-ll 
CHANNEL, 671 
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11-6 
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EBCDIC extended binary-~coded- 
decimal interchange code, Av73 
hexadecimal equivalents, B-1l 
numeric, 273 
printable, 3-3, 3-4 
replacement, 10-30 
special, 2-1, 2-2 
CHARACTER field, 8-19, 8-20, 13-12 
DMS, 13-12 
character set, 27-1, A7-3, Bul 
numeric portion, 8-17 thru 8-19, 
A-3 
used for names, 2-1 
used in editing, 2-2, 10-30 
zone portion, 8-17 thru 8-19 
CHECK dollar option, 11-6 
checking sequence. See sequence 
checking 
CLOSE dollar option, 11-5 
closing of tape files, 4-32, 4-33 
code 
80-column card, A-3 
96-column card, A-73 
BCL, A-3 
EBCDIC extended binary~coded~- 
decimal interchange code, A-3 
edit codes, 10-21 thru 10-24 
record identification, 8-16 thru 
8-20 
Operation. See operation codes 
collating sequence, B-l 
combined files, 4-3 
device assignment of, 4-27 
file type entry (File Descrip- 
tion column 15), 4-3 
stacker select on Input Specifi- 
cations, 8-20 
stacker select on Out put~Format 
Specifications, 10-6 
commas in edit words, 10-30, 10-32 
comments, 2-6 
Calculation Specifications, 9-11 
Dollar Card Specifications, 11-8A 
Extension Specifications, 5-7 
use of asterisk (*}), 276 
common entries on specifications 
sheets, 2-4, 2-5 
COMP operation code 
alphanumeric fields, 9-31 
numeric fields, 9-31 
compare and testing operations, 9-31, 
9-32 
compare operation, 9-31 


COMP, 9-31 
TESTN, 9-31 thru 9-32A 
TESTZ, 9-32A 
compatibility with other RPG systems, 
1-3 
compilation, 17-1 thru 173 
compilation of source program, 1-1 
thru 17-3 
compilation time of tables and 
arrays, S-l, S74, 5-7, 5-9, 5-10 
compile statement, 12-2 
compile-time vectors, 47-5, 5-7, 5-9, 
59710, 12-3 
loading, 9-9, 5710 
output, 9-14 
compiler file names, 12-4 
compiler operation, 12-1 
compiler program, 1-1 
compiler-directing options 
$ options, 11-7 thru 11-8A 
conditioning files 
File Description Specification 
entry, 4-34, 4-35 
conditions tested by resulting 
indicators (calculations), 9-11 
consecutive processing of a file, 4-9 
CONSOLE device, 4-26 
File Description Specification 
entry, 47-26, 4-27 
console messages during program 
halts, 4-7, E-1l thru E-3A 
constant. See edit word; literal 
definition of, 10-28 
example coding of, 10-29 
Out put-Format Specifications, 
10-28 
rules for forming, 10-29 thru 
10-31 
CONSTANT OR EDIT WORD field, 10-29 
thru 10-31 
DMS, 13-47, 13-49 
constants, 10-28 
DMS, 13-47, 13-49 
constants in edit words, 10-28 
DMS, 13747, 13-49 
cont inue 
halt recovery, E-1l thru E-3A 
control break. See control fields; 
control level 
first cycle difference, 8-29 
seneral description, 8-28 thru 
8-30 
DMS, 137-15 


Index73 


INDEX (Cont) 


split control fields, 8-30 thru 
8-32 
unwanted, 8-30 thru 8-32 
Control Card Specifications 
field definitions, 3-1 thru 374 
Control Card Specifications syntax, 
371 thru 374 
control fields 
assigning on input, 8-28 thru 
8-32 
DMS, 13715 
examples, 8-30, 8-31 
general description, 8-28 thru 
8-32 
DMS, 137-15 
rules for using, 8-29, 8-30 
split fields, 8-30 
split fields (rules for using), 
8-30 thru 8-32 
control group. See control fields; 
control level 
control level 
Calculation Specifications entry, 
9-3 
DMS, 13715, 13-16 
example of, 9-4 
Input Specifications entry, 8-28 
thru 8-30, 13725 
CONTROL LEVEL field 
Calculation Specifications, 9-2 
Input Specifications, 8-28 
DMS, 13-15, 13-27 
control level indicator 
Calculation Specification entry, 
a 
example of, 9-4 
general information, 9-3 
Input Specifications entry, 8-28, 
137-15 
normal uses, 8-28 
Out put~Format Specifications 
entry, 10-12 thru 107-15 
relation between calculation 
entries, 9-3 
control level indicators (LO-L9) with 
overflow indicators, 10-15 
conversion of fields during MOVE 
operations, 9-18 
core index 
allocation of storage, 4-29, 4-30 
example, 4-30 
CORE INDEX field, 4-29, 4-30 
CR (negative balance symbol), 10-22 
thru 10-24, 10-28, 10-34 
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cross foot operation (XFOOT), 9-17 
CRP20 device, 4-27 
CRP device, 4-27 
cycle 
detail description of, H-1 thru 
H-6 
flowchart of RPG cycle, H-2 
RPG, H-1 


Dl indicator, 137-18, 13-22 
D indicators, 137-18, 137-22 
DA~DH, DJ-DS indicators, 13-18, 13-22 
DASDL, 137-1 
DASDL Information and Suggestions, 
13765 
data base, 13-1, 137-3 
data base dictionary, 13-1 
DATA BASE NAME field, 13-3 
Data Base Specifications, 13-2, 13-3 
ACCESS MODE field, 1373 
DATA BASE NAME field, 13-3 
LOGICAL DATA BASE field, 1373 
data set name, 137-6, 13-11, 13-42 
data sets, 13-1 
DATA96 device, 4-27 
data communications files, 7-1 
data formats. See PACKED or BINARY 
field 
DATACOM 
Telecommunications Card Speci~ 
fications, 7-1 thru 7-4 
DATACOM files, 4-29, 7-1, ¢-3 
data fields, 10-18A 
DEADLOCK exception, 13735 
DEBUG 
example of output listing of, 
9-54 
DEBUG field, 371 
DEBUG operation code, 97-53 
Control Card entry, 371 
DEBUG, 9-53 
example output, 9-54 
format of debug records, 97-53 
decimal data format. See also PACKED 
and BINARY fields 
packed, 8-20, 8-22 thru 8-24 
unpacked, 8-21 
decimal places. See decimal positions 
decimal point in edit words, 10-28, 
10-30, 10-32 
DECIMAL POSITIONS field 
Calculation Specifications, 9-10, 
13-21 
DMS, 137-14, 137-21 
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Extension Specifications, 5-5, 5-6 
Input Specifications, 8-25, 13-14 
with move remainder (MVR), 9715 
decimal positions with square root 
operation (SQRT), 9-17 
defining a field in calculations 
(RESULT FIELD), 9-9 
definition of names, 
delete a record, 13-8, 
13-44 
DELET operation code, 
13-35, 13-36 
demand file, 4-5 
demand file. See also READ operation 
code 
device assignment of, 4-27 
File Description Specifications 
entry, 47-95 
demand file with external indicators 
(U1-U8), 9-49 
descending sequence, 4-7, B-l, B-2 


2-2 
13-9, 13-43, 


13-23, 13-24, 


detail calculations, 9-1 
detail calculations time, H-1l 
detail calculations time. See also 
RPG cycle 
detail lines, 6-4, 10-4 
during overflow, 10-5, 10-6 


detail output record 
Out put~Format Specifications entry, 
10-2 
detail output record with control 
level as output indicator, 10-12, 
10-13 
detail output time, H-l 
detail records, 10-4 
detail time, H-1l 
detailed object program logic, H-1l 
device 
Field Description Specifications 
entry, 47-26 
device assignment table, 4-27 
DEVICE field, 4-26 thru 4-29 
DMS, . 13°-7,. 138-8, 13-53 
digit 
character grouping by zone and 
digit, 8-22 
digit portion of characters, 8-17, 8-22, 
A~1l thru A-3 
hexadecimal representation, B-l, 
B-2 
digit portion of characters with packed 
decimal format, 8-21 


DIGIT8 dollar option, 11-6A 


direct file 
adding records, 9-45 
creating a direct file, 9-46 
File Description Specifications 
entry, 4-11 


organization example, 4-13 

processing methods, 4-10 
direct files, 4-13 

accessing of, 4-13 

chaining of, 9-45, 9-46 

organization of, 4-13 
disjoint data set, 13-1, 13-2 


1371 
4-27 


disjoint set, 
DISK11 device, 
DISKI1F device, 4-27 
DISK45 device, 4-27 
DISK device, 4-26 
disk file. See also direct file; 
index file; sequential files 
block and record length entry, 
4-8 
device entry (File Description 
entry), 47-26 
File Description Specifications 
Summary Sheet, 4-2 
organization. See file organi~ 
zation 
processing. 
modes 
DISKID dollar option, 117-3, 
display (DSPLY) operation 
data entry during program 
execution, 9-46, 9-47 
example, 9-47 
display files, 4-4 
device. assignment, 
DIV operation code, 9-195 
divide by zero (halt recovery), E-2 
DMKEY statement, 13-24 thru 13-26 
DMSNAM dollar option, 11-6A 
DMS 


See processing 


13-3 


4-26 


Calculation Specifications, 


13-16 thru 13-34, 137-53 thru 
13-95 

D indicators, 13-17, 13-19, 
13-22 

Data Base Specifications, 13-2, 
137-3 

DA-~DH, DJ-DS indicators, 13-18, 
13-19, 13-22 

DEADLOCK exception, 13735 


13-21 
13-24 


DECIMAL POSITIONS field, 
DELET operation code, 137-23, 
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disjoint data set, 13-1, 13-23 

DMKEY statement, 137-24 thru 13726 

embedded data set, 13-11, 13-23 

ENDUR operation code, 137-36 

exception conditions, 13-36, 
13-37 

exception handling, 137-35 thru 
13-41 

Extension Specifications, 13-9 

FACTOR 1 field, 13-19 

FACTOR 2 field, 13-20 

FIELD INDICATORS field, 13-16 

FIELD LENGTH field, 137-21 

File Description Specifications, 
13-5 thru 13-9 

FIND operation code, 137-26 thru 
13-28 

FREE operation code, 13-28, 
13-29 

HALF ADJUST field, 13-21 

INDICATORS field, 13-18, 13-19 

input exceptions, 13-35 

Input Specifications, 13-11 thru 
13-16 

INSRT operation code, 137-29, 
13-30 

IOERROR exception, 137-35 

key relationships on DMKEY 
statement, 13-24, 137-25 

LOCK operation code, 13-30 thru 
13-32 

manual subset, 13-30, 13-32, 
137-33 

on exception indicator, 13-18, 
13-22 

operation codes, 13723 thru 
13-34 

OPERATION field, 13-20 

Out put~Format Specifications, 
13-41 thru 13-50, 137-55, 13-56 

program aborts, 137-37, 13-38 

random access, 13721 

REMOV operation code, 13732, 13733 

restart data set, 13-51 thru 13-64 

RESULT FIELD field, 13-20, 13-21 

RESULTING INDICATOR field, 13-22 

run-time error handling, 13736 


thru’ 13-41 
run-time errors on DMS file, 
13-36 


SECURITYERROR exception, 137-35 

selection expressions, 13-20, 
13-21 

sequential access, 137-21 
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setting indicators, 13-22 

STORE operation code, 137-33, 
13-34 

user routines (UR entry), 
13-36, 13-38 

variable format records, 13-44 
thru 13-46 

valid data set, 137-23 

VERSIONERROR exception, 13-35 


DMS Calculation Specifications, 
137-16 thru 137-34, 13-953 thru 
13-55 


ACCESS METHOD, 13-21 


DMS File Description Specifications 


DEVICE field, 13-7, 13-53 

END OF FILE field, 13-6 

FILE ADDITIONS field, 13-8, 
13-9, 13-53 

FILE DELETIONS field, 13-8, 
13-9 

FILE DESIGNATION field, 13-6 

FILE FORMAT field, 13-7 

FILE NAME field, 13-6 

FILE TYPE field, 13-6, 13-53 

INDEX NAME field, 13-8 

SEQUENCE field, 13-7 


DMS Input Specifications, 13-11 thru 
13716; 13703 


CHARACTER field, 13-12 

CONTROL LEVEL field, 13-15 

DECIMAL POSITIONS field, 137-14 

DIGIT field, 137-12 

field definitions for field 
descriptions, 13-13 thru 
13-16 

Field Descriptions, 137-135 thru 
13-16 

FIELD LOCATIONS field, 13-13 

FIELD NAME field, 13-14, 13-15 

FIELD RECORD RELATIONS field, 
L370, 13> 16 

MATCHING FIELDS field, 137-15, 
137-16 

PACKED field, 13-13 

POSITIONS field, 137-14 

RECORD IDENTIFYING CODES field, 
13-12 

RECORD IDENTIFYING INDICATOR 
field, 13-11 

Record Type Descriptions, 13-11 
thru 13-13 

restart data set, 137-53 

SEQUENCE field, 13-11 ‘% 

SIGN field, 13-12 
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STACKER SELECT field, 13-12 DNAME, 11-6 
ZONE field, 13-12 DRIVE, 117-5 
DMS Output~Format Specifications, FAMILY, 117-3 
13-41 thru 13-50, 13-55, 13-56 FILEID, 117-3 
adding records, 13-43 field definitions, ll-1l thru 
CONSTANT field, 13-47 11-8 
deleting records, 137-43, 13-44 file identification extensions, 
EDIT CODES field, 13-47 11-3 
END POSITION field, 13-47 LIBR, 11-8 
Field Definition Line, 13-46 thru LIST, ti-7 
13-49 LOGIC, 11-7 
OUTPUT INDICATORS field, 13-44, MAP, 11-7 
13-46 MERGE, 11-6, 11-6A 
OUTPUT LOCATION field, 13-46 NAMES, 11-7 
PACKED field, 13-47 NEW, 11-6A 
RECORD ADDITION field, 13-43 NEWID, 11-8 
RECORD DELETION field, 13-43, ONEPAK, 117-5 
13-44 OPEN, 117-5 
Record Description Line, 13-41 options, 11-3 
thru 13-46 PACKID, 117-3 
restart data set, 13795, 13-56 PAGE, 11-8 
TYPE field, 137-43, 13-55, 137-56 PARMAP, 117-8 
Variable Format Records, 13-44 PTAPE, 11-6A 
thru 13-46 REFORM, 1175 
VARIABLE NAME field, 13-47 REORG, 11-6 
DMS exception handling, 13735 thru RPERA, 117-5 
13-41 RPG extensions, 11-4 
DMS exception indicators, 13-18, RPGLIB, 13-695 
13-19, 13-22 RSIGN, 11-6 
DMS file SECURE, 11-6A 
DMS files SEQ, 11-6A 
primary, 1376 STACK, 11-8 
secondary, 13-6 SUPR, 11-8 
DMS general, 13-1, 137-2 TAPE7, 11-6A 
DMS glossary of commonly used terms, TAPES, 11-6A 
13-66 thru 13-70 VOID, 1178 
DMS indicators, 137-18, 13-19, 13-22 XMAP, 11-8 
DMS library files, 13-64 XREF, 11-8 
DMS operation codes, 137-23 thru 13-34 ZBINIT, 11-7 
DMS OUTPUT LOCATION field, 13-46 dollar sign option, 11-1 
DMS selection expressions, 13-20, 13-21 dollar signs in edit words, 10-30, 
DNAME dollar option, 11-6 10-33 
Dollar Card Specifications, l1-1l domestic format, 37-3, 37-4, 10-24 
AAOPEN, 1175 double buffering (I/O areas), 4-10, 
AREAS, 1174 4-11 
BAZBON, 117-7 DRIVE dollar option, l1-5s 
CASSET, 11-6A DSPLY operation code, 9-9, 9-46, 9-47 
CHECK, 117-6 dynamic/execution-time vectors, 5-11 
compiler, 11-6 thru o-14 
CLOSE, 11-9 Loading of, o-1l 
CY Ir, LIS Loading of Calculation Specs, 
DIGIT8, 11-6A o-13 
DISKID, 1173 Loading of Input Specifications, 
DMSNAM, 11-6A 0712 
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EBCDIC character set, A73 
edit code 
arrays, 
DMS fields on output, 
effect on end position, 10-22 
Leading zero suppression, 107-24 
Out put~Format Specifications 
entry, 10-21 thru 10-24 
rules, 10-22 thru 107-24 
summary table, 10-24 
zero balances, 10-24 
edit code with array, 10-22 thru 10-24 
edit code with edit word, 10-22 
edit code with inverted print specified, 
10-24 
EDIT CODES field, 
Edit Words 
ampersand, 
asterisk, 
asterisk 
asterisk 
10-30, 
asterisk 
10-30 
asterisk 
10-30, 
asterisk 
10-30, 
asterisk 


10-22 thru 10-24 
137-47 


10-21, 13-47 

10-30, 10-33 

10-30, 10-33 

with comma, 10-30 

with credit symbol (CR), 
10-33 

with decimal point, 


with dollar sign ($), 
10-33 
with minus sign (-), 
10-33 
with zero, 
asterisk with biank, 
constant in, 10-36 
DMS on output, 13-47, 
editing and constants, 
editing negative numbers, 10-34 
editing to remove the sign, 107-35 
editing with a floating dollar 
Sign, 10-33 
editing with a slash, 10-34 
editing with asterisk, 10-33 
examples of, 10-37 thru 10-47 
full zero suppression, 10-31 
limited zero suppression, 10-32 
no editing, 10-31 
no zero suppression, 
replacement characters, 
sections of, 10-24 
special character with ampersand, 
10-30, 107-35 
special characters, 2-2, 
zero suppression, 10-31 
editing characters, 2-2, 10-28 
embedded data set, 13-1, 13-11, 
end-of~file 
File Description Specifications 
entry, 4-6 


10-30, 10-31 


10-30 


13-49 
10-36 


10-31 
10-30 


10-30 


L323 
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END POSITION field, 10-26, 13-47 
end position in output record 
Out put~Format Specification 
entry, 10-26, 13-47 
End-of-File condition, 4-6 
END-OF-FILE field, 4-6, 137-6 
End-of-File with matching records, 
4-6, 8-37 
End-of-Job, 4-6, 10-11 
ENDSR operation code, 9-42, 9-43 
ENDUR operation code, 137-36 
ENTRIES PER RECORD field, 5-4 
ENTRIES PER VECTOR field, 5-4 
error messages 
execution time, E~1 
halts, E~2 thru E~3A 
error sequence 
recovery from record type 
sequence error, E-l 
recovery from file sequence 
halt, E-1l 
exception conditions, 
13-37, 13-38 
exception handling routine, 
thru 13-38 
exception indicators, 
exception lines, 10-8 
exception records, 10-4, 10-5 
Out put-~Format Specifications 
entry, 10-4, 10-5 
overflow printing, 10-55, 
EXCPT operation code, 9-47 
execution 
halts, E-1l thru E-3A 
execution~time array 
definition, s-ll 
Extension Specification Sheet, 
o-2 
loading, 
execution~time arrays, 
o7 14 
execution-time error messages, E-l, 
E-3A 
execution-time vectors, 
o7 14 
EXSR (execute subroutine) operation, 
9-43 
EXSR operation code, 9-43 
EXTENSION CODE field, 4-26 
Extension Specifications, 
o-15, 13-9 
EXTENSION CODE field (File Des- 
cription entry), 4-26 
field definitions, so-l, 


13-17, 13-19, 


13-36 


13-18, 13-19 


10-56 


5-11 thru 5-14 
o711l thru 


o7 11 thru 


o71l thru 


137-9 
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FROM FILENAME and TO FILENAME 
field, S-l, 137-16 
external file names 
definition of, 11-3, 1174 
external indicators (U1-U8), 47-34, 
4-35, 8-42, 8-43, 9-8, 10-11, 10-135 
assigning on File Description 
Specification, 4-34, 4-39 
external indicators as output indi-~ 
cators, 10-11, 10-13 


FACTOR 1 field, 9-8, 137-19 
FACTOR 2 field, 9-9, 13-20 
FAMILY dollar option, 117-3 
FETCH OVERFLOW field, 10-6 thru 10-8, 
10-55, 10-56 
FETCH OVERFLOW field at exception time, 
10-8 
FETCH OVERFLOW field with skipping 
specified, 10-7 
field 
alphanumeric, 273 
binary (Input Specifications), 
8-20, 8-22 thru 8-24 
binary (Output Specifications), 
10-27 
look-ahead, 8-8F thru 8-11 
matching, 8-32 thru 8-39 
numeric, 27-3 
packed, 8-20 
result, 9-9 
field description line ~- DMS output, 
13-46 thru 13-50 
field definitions, 2-4 
Calculation Specifications, 9-1 
thru 9-10, 13-16 thru 13-22 
Calculation Specifications 
Summary Sheet, 9-2 
Control Card Specifications, 
3-1 thru 3-4 
Control Card Specifications 
Summary Sheet, 3-2 
Data Base Specifications, 1373 
Dollar Card Specifications, l1-1l 
thru 11-8A 
Dollar Card Specifications 
Summary Sheet, 117-2 
Extension Specifications, o-1 
thru. 5-7, 13=9 
Extension Specifications 
Summary Sheet, 5-2 
File Description Specifications, 
4-1 thru 4-35, 13-6 thru 13°79, 
13-52, 13-53 


File Description Specifications 
Summary Sheet, 4-2 
Input Specifications, 8-1 thru 
8-44, 13-11 thru 13-16 
Input Specifications Summary 
Sheet, 8-2 
Out put~Format Specifications, 
10-1 thru 10-58, 13-40 thru 
13-48, 13-55 
Out put~Format Specifications 
Summary Sheet, 10-3 
Telecommunications Card Speci-~ 
fications, 7-2 thru 7-4 
Telecommunications Card Summary 
Sheet, 7-3, 7-4 
field definitions common to all 
specifications, 2-5, 2-6 
field indicators (01-99), 8-43, 9-6, 
9-7, 10-12, 13-16 thru 13-19, 
13-44, 13-46 
FIELD INDICATORS field, 8-43, 13-16 
MINUS field, 8-43 
PLUS field, 8-43 
ZERO or BLANK field, 8-43 
FIELD LENGTH field, 9-10, 13-20 
FIELD LOCATION field, 8-24, 8-25, 
137-13 
FIELD NAME field 
Input Specifications, 8-26, 
13714, 13-15 
Output Specifications, 10-17 
thru 10-20, 13-47 
Output Specifications *PLACE 
Specification, 10-19 
Output Specifications *PRINT 
Specification, 10-20 
Output Specifications Date 
fields, 10-18 
Output Specifications Page 
fields, 10-19 
field names, 2-2 
FIELD RECORD RELATION field, 8-39 
thru 8-43, 13-15, 13-16 
file 
ADDROUT, 4-5, 4-10, 4-24 
B-indexed, 4-13 
chain, 4-4 
combined, 473 
demand, 4-95 
direct, 4-13 
display, 4-4 
DMS, 13-6 
end of, 4-6 
indexed, 4-10, 4-12, 4-16 
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file 
file 


FILE 


4-31, 


FILE 
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input, 4-3 
limits, 4-10, 4-14, 4-15, 4-18 
limits with SETLL, 4-19 
output, 47-3 
primary, 4-4 
record address, 
secondary, 4-4 
table, 4-5 
update, 47-3 
accessing methods, 
addition 
coding options, 
13753 
File Description Specifications 
entry, 4731, 137-8, 13-9, 137-53 
ADDITION/UNORDERED/DELETION field, 
P3"6~ 13795 -to753 
ADDITION/UNORDERED field with 


4-95 


4-10 


4-32, 13-8, 13-9, 


ADD, 4-31 


file 


FILE 
File 


FILE 
file 
FILE 
file 


file 


condition 

File Description entry, 47-34, 4-35 

CONDITION field, 47-34, 4-35 

Description Specifications, 4-1 

field definitions, 4-2 thru 4-35, 
13-6 thru 13-9, 13°52, 13~53 

FILENAME field, 4-1, 13-6 

DESIGNATION field, 47-4, 13-6 

format, 4-7, 13-19 

FORMAT field, 4-7, 137-19 

identification dollar options 

$ DISKID, 117-3, 137-3 

$ FAMILY, 117-3 

$ FILEID, 1173 

$ PACKID, 1173, 

name 

CHAIN (Calculations entry), 9-44 

DEBUG (Calculation Specifications 
entry), 97-53 

DSPLY (Calculations Specifications 
entry), 9-46 

File Description Specifications 
entry, 4-1, 13-6, 137-53 

FROM FILENAME (Extension Speci- 
fications entry), 5-1 

Input Specifications entry, 
o- 3,4: 13-11 

Line Counter Specifications 
entry, 67-3 

Out put~Format Specifications 
entry, 10-2, 10-4, 13-41, 
13755 

READ (Calculations Specifications 
entry), 9-48 

RECV (Calculations Specifications 
entry), 9-49 

4 ; 


13-3 


8-1, 


13-43, 
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SEND (Calculations Specifications 


entry), 9-51 
SETLL (Calculation Specifica- 
tions entry), 97-52 


Telecommunication Card Specifi-~ 


cations entry, 7-2 


TO FILENAME (Extension Specifi-~ 


cations entry), S-l 
NAME field. See file name 
name length, 27-2 
names 
external and internal, 

11-4 
organization, 4-11 thru 4-25 
ORGANIZATION TYPE field, 4-10 
processing 
consecutive, 
DMS, 13-1 
random, 4-21, 4-22 
sequential by key, 4-14 
sequential within limits, 4-14 
valid combinations of, 4-25 
sequence 
ascending, 
descending, 4-7, 
FILE statement, 12-4 
FILE TYPE field, 4-3, 

13753 
FILEID dollar option, 
filenames, 2-2 
FIND operation code, 

13-28 
first page (1P) indicator 

Control Card Specifications 
entry, 374 
Out put~Format Specifications 
entry, 10-16, 10-17 


FILE 
file 
file 
a eas 


file 
FILE 
file 
4-14 


file 
Loe 
Lord 


4-7, 


4-4, 13-6, 
11-3 


13-26 thru 


first page indicator (1P), 3-4, 10-16, 


10-17, E-2 

fixed dollar sign, 
fixed-length format, 
fixed-length records, 
FL, 671, 673 
floating dollar sign, 
flowchart 

RPG cycle, H-2 


10-32 
4-7 
4-7 


10-33 


RPG cycle descriptions, H-l, 
H-3 thru H-6 
FORCE operation code, 9-47, 9-48 


form length, 6-1, 673 
Line Counter Specifications 
entry, 6-1, 6-3, 674 
FORM TYPE field, 27-5 
formatting edit words 


om 
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examples, 10-37 thru 10-47 
FORMS POSITIONING field, 3-4, E-2 
FREE operation code, 13-28, 13-29 
FROM FILENAME field, 5-1, 13-9 


general RPG program cycle, H-1 thru 
H-6 

glossary of commonly used DMS terms, 
13-65 thru 13-69 

GOTO operation code, 2-2, 9-9, 9-35 


HALF ADJUST field, 9-10, 9-11, 13-20 
halt indicators (HO-H9), 8-8F, 9-8, 
O-l), 10-13, E-Z 
assigning on Input Specifications, 
8-8F 
calculations (conditioning in- 
dicators), 9-8 
calculations (resulting in- 
dicators), 9-11 
example of Calculation Specifi- 
cations, 9-12 
halt recovery, E-2 
header card (Control Card Specifica~ 
tions), 3-1 thru 3-4 
heading lines, 10-4, 10-5 
heading lines during overflow, 10-7 
heading records, 10-4 
hexadecimal to binary conversion, B-2 


index 
buffers (1/0 buffer areas), 4-10, 
4-11 
core, 4-29, 4-30 
File Description Specifications 
entry, 47-10, 4-11 
index buffers (1/0 buffer areas), 4-10, 
4-11 
index file 
addition of records, 47-31, 4-32, 
10-5 
B-indexed, 3-1, 4-13 
- consecutive, 4-14 
File Description Specifications 
Summary Sheet, 4-2 
file processing, 4-14 
key field starting location, 4-26 
key length, 4-9 
organization, 4-1l, 4-12 
random, 4-21, 4-22 
sequential by key, 4-14 
sequential within limits, 4-14 
thru 4-16 
unordered addition, 47-31, 4-32 


INDEX NAME field, 13-8 
index order, 137-8, 13-9 
indexed files, 4-12, 4-13 
accesSing of, 4-12 
CHAIN operation code, 9-44 thru 
9-46 
CORE INDEX field, 4-29, 4-30 
space/time trade-offs, 4-30 
index random, 137-2 
index sequential, 13-2 
indicator Summary Form, C-l, C-2 
indicators, 8-8E, 8-8F, 8-41 thru 
8-43, 9-3 thru 9-8, 10-11 thru 
10-17 
control level indicators (LO-L9), 
8-8E, 8-41, 8-42, 9-3, 9-4, 
9-6, 9-7, 9-1l, 10-11 thru 
LO-13,. 13- bo, -13-16 
DMS (D1, DA-DH, DJ-DS), 13-18, 
13719 
external indicators (U1-U8), 
4-34, 4-35, 8-42, 8-43, 9-8, 
10-13 
field indicators (01-99), 8-8F, 
8-41, 9-6, 9-11, 10-12 
first page indicator (1P), 3-4, 
10-16, 10-17, E-2 
halt indicators (H1-H9), 8-8F, 
8-43, 9-6, 9-8, 10-11, 10-13 
last record indicator (LR), 47-6, 
8-8E, 8-8F, 9-3, 9-4, 9-11, 
10-11, 10-13 
matching record indicator (MR), 
8-32 thru 8-39, 8-41, 8-42, 
9-6, 10-11, 10-13 
overflow indicators (OA-OG, OV), 
4-25, 9-6, 9-8, 10-6 thru 
10-8, 10-11, 10-13 thru 10-15 
record identifying indicators 
(01-99), 8-8E, 8-8F, 8-41, 
O° 6, (9-7. O79y 910, 10-11, 
10-12 
setting indicators operation 
code, 9-35, 137-22 
INDICATORS field 
Calculation Specifications, 
9-6 thru 9-8, 137-18, 13-19. 
Calculation Specifications 
(NOT field), 9-6 
DMS, 137-18, 13-19 
input exceptions, 13-34 
input error messages 
execution-time, E-1l thru E~3A 
input files, 4-3 
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chained, 47-4, 9-45, 9-46 
conditioned by external indica~ 
tors, 4-34, 4-35 
device assignment of, 4-26, 4-27 
DMS, 13-6 
Input Specifications, 8-1 thru 8-44, 
13-11 thru 13-16, 137-53 


field definitions, 8-1 thru 8-44, 


13-11 thru 137-16 
FILENAME field, 8-1, 8-3, 13-11 
input/output (I/O) area 
File Description Specifications 
entry, 4710, 4-11 
insert, 13-29, 13-30 
inserting new records, 4731, 4732 
INSRT operation code, 13-29, 13-30 
internal file names 
definition of, 1173 
compiler, 12-4 
inverted print specifications, 2-3, 
3°35. 374 
table of, 3-4 
IOERROR exception, 13735 


JDATE special word, 2-4 


key 
index key length, 4-9 
index random, 47-21 
index sequential by key, 4-14 
index starting location (File 
Description entry), 4-26 
index type, 4-10, 4-11 
key field 
length, 4-9 
starting location (File Descrip~ 
tion entry), 47-26 


KEY FIELD STARTING LOCATION field, 4-26 


key relationships on DMKEY statement, 
137-24 
KEY WORD field, 1173 


LO 


Calculation Specifications entry, 


9-3, 9-4, 9-6, 9-7 
L1-L9 


Calculation Specifications entry, 


973, O74, 9-6; 27 
Input Specifications entry, 8-8F 
Out put~-Format Specifications 
entry, 10-11, 10-12 
Label Equation Card, 12-3, 12-4 
Labels, 27-2 
LABELS field, 4-29 
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LABELS field B 1800/B 1700 Standard 
Label, 4-29 


last record indicator (LR), 4-6, 8-8E, 


SSF, -9-2, 974,;. 9-6, 977, 9711, 
10-11, 10-13 
leading zero suppression, 10-31 
length 
B-indexed file key length, 4-9 
block, 478, 4-9 
decimal positions (Calculation 
Specifications), 9-10 
Extension Specifications (length 
of entry field), 5-4, 5-6 
field location (Input Specifica-~ 
tions), 8-24, 8-25 
field names, 2-2 
filenames, 2-2 
indexed files key length, 4-9 
labels, 27-2 
Line Counter Specifications 
(forms length), 673 
record, 4-8, 4-9 
record address field, 4-9 
vector names, 2-2 
level zero indicator (LO), 9-3, 9-4, 
9764, Jey HS 
level, control. See control level 
LIBR dollar option, 117-8 
library files 
DMS, 1373, 13-9, 137-64 
limits file, 4-14 thru 4-18C 
Line Counter Specifications, 67-1 thru 
6-6 
EXTENSION CODE field, 4726 
field definitions, 6-1 thru 6-4 
FILENAME field, 673 
LINE field, 27-5 
LINE NUMBER field, 6-3, 674 
line~channel equations, 6-1 
LIST dollar option, 11-7 
literals 
definition of, 27-3 
literals as constant on output, 10-28 
loading arrays, 5-9 thru 935-14 
compile time, 5-9, 5-10 
dynamic/execution time, 5-11 
thru 5-13 
pre~execution time, 5-10, 5-11 
loading files (file creation) 
examples of, 4-45 
LOCK operation code, 13730 thru 13-32 
LOGIC dollar option, 117-7 
logic of RPG program cycle, H-1l thru 
H-6 
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logical data base, 13-3 
LOGICAL DATA BASE field, 
LOKUP 
indicator assignment, 9-38 
referencing subscripted table 
entries, 9-40 
referencing unsubscripted table 
entries, 9-40 
resulting indicators, 
rules for, 9-38, 9-39 
search word, 9-36, 9-37 
Single table, 9-39 
two table, 9-39, 9-40 
LOKUP algorithm (table), 9-42 
LOKUP operation code, 95-6, 9-36 thru 
9-42 
Single vector, 9-39 
two vector, 9-39, 9-40 
LOKUP with a array, 9-40 thru 9-42 
look-ahead field (**), 8-8E thru 8-11 
lookup operations 
LOKUP, 5-6, 9-36 thru 9-42 
LOKUP (single vector), 9-39 
LOKUP (two vector), 9-39, 9-40 
LR (last record) indicator 
calculations entry, 9-3, 
o> 7 
Input Specifications entry, 
8-8F 
Out put~Format Specifications 
entry, 10-11, 10-13 


137-3 


9-38 


9-4, 9-6, 


8-8E, 


magnetic tape 
block and record length, 4-8 
device assignment, 4-26, 4-27 
TAPE REWIND field, 4-32 thru 
4-34 
magnetic tape file 
input, 47-33 
output, 4-33 
manual subset, 13-1, 
13°32, 13-33 
MAP dollar option, 11-7 
mask. See edit word | : 
MATCHING FIELDS field, 8-32 thru 8-39, 
13-15 
rules for matching fields, 
8-33 
rules for sequence checking, 
MATCHING FIELDS field for matching 
fields, 4-8, 8-32 thru 8-38 
MATCHING FIELDS field for sequence 
checking, 8-39 
matching record indicator (MR), 8-32 
thru 8-38, 9-7, 10-11, 10-13 


13-2, 13-29, 13-30, 


8-32, 


8-39 


matching records at End-of-File, 
4-6, 8-37 
MCP Disk Directory, 4-34 
MERGE dollar option, 11-6, 11-7 
messages during program execution, 
E-1 thru E-3A 
method (mode) of processing, 4-9 
MFCM1 device, 4-27 
MFCM2 device, 4-27 
MFCU1 device, 4-26, 4-27 
MFCU2Z device, 4-26, 4-27 
MHHZO operation code, 9-29 
MHLZO operation code, 9-29 
MLHZO operation code, 9-29 
MLLZO operation code, 9-30 
mode of processing (File Descrip- 
tion Specifications entry), 4-9 
MOVE operation code, 9-20 
MOVE operations, 9-18 thru 9-30 
MOVE, 9-20 
MOVEA, 9-22 thru 9-26 
MOVEL, 9-20 thru 9-22 
move remainder (MVR) operation, 
97 Ly. 9ALd 
move zone operations, 
MHHZO, 9-29 
MHLZO, 9-29 
MLHZO, 9-29 
MLLZO, 9-30 
MOVEL operation code, 


9-27 thru 9-30 


9-20 thru 9-22 


MULT operation code, 9-13, 9-15, 
9-16 

multi-file processing with CHAIN, 
9-44 

multi-file processing with FORCE, 
9-47, 9-48 


multi-~file processing with matching 
records, 8-32 thru 8-39 

multi-file processing with 
9-48, 9-49 

multiple I/O areas, 4-10, 4-11 

multiple I/O buffer areas (File 
Description Specifications entry), 
4-10, 4-11 

MVR operation code, 


READ, 


9-15, 9-17 


N (not). See record identification 
codes 
names 
definition of, 2-2 
type of, 2-2 
NAMES dollar option, 117-7 
negative balance symbol (CR). See 
edit words, 10-28, 10-30, 10-34 
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negative signs in edit words, 10-28, 
10-30, 10-34 
negative square root halt (recovery 
options), E-2 
NEW dollar option, 11-6A 
NEWID dollar option, 11-8 
non~compatibility with other RPG 
systems, 1-3 
normal collating sequence, Br-l, B-2 
NOT field, 
Calculation Specifications, 9-6 
Dollar Card Specifications, 11-1 
OUTPUT INDICATORS field, 10-11 
RECORD IDENTIFICATION CODES 
field, 8-16 
number (Input Specifications entry), 
8-5 
NUMBER field, 8-5 
number lines on coding sheets, 27-5 
number of entries per record (Exten- 
sion Specifications entry), 5-4 
number of entries per vector (Exten= 
sion Specifications entry), 5-4 
numbering report pages 


Calculation Specifications (PAGE), 


9-8 
Input Specifications (PAGE), 
8-26 
Out put-Format Specifications 
(PAGE), 10-17, 10-18 
numeric character (numeric literals), 
27-3 
numeric fields 
comparing, 9-31 
moving operations, 97-18 thru 9-30 
testing, 9-31 thru 9-32A 
numeric literal, .273 
numeric portion of: characters, 8-17 
thru 8-19 


OA-OG, OV (overflow indicators) 
Calculation Specification entry, 
9-6, 97S 
File Description Specifications, 
4-25 
Out put~Format Specifications, 
10-11, 10-13 thru 10-15 
OCCURS clause, 137-9 
OL, 6-1, 673 
on exception indicator —- Dl, 13-18, 
13-22 
ONEPAK dollar option, 1175 
OPEN dollar option, 1175 
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operations 


arithmetic ADD (add), 9713 

arithmetic DIV (divide), 9-14 

arithmetic MULT (multiplica~ 
tion), 9-13, 9-15, 9-16 

arithmetic MVR (move remainder), 
9-15, 9-17 

arithmetic SQRT (square root), 
9-17, 9-18 

arithmetic SUB (subtraction), 
9-13 

arithmetic XFOOT (cross foot), 
9-17 

arithmetic Z-ADD (zero and add), 
9-19 

arithmetic Z-SUB (zero and sub- 
tract), 9-19 

binary BITOF, 9-34 

binary BITON, 9-33 

binary TESTB, 9-34 

compare COMP, 9-31 

compare TESTN, 9-31 thru 9-32A 

compare TESTZ, 9-32A 

debug DEBUG, 97-53, 9-54 

DMS BEGUR, 13-36 

DMS DELET, 13723, 13-24 

DMS DMKEY, 137-24 thru 137-26 

DMS ENDUR, 137-36 

DMS FIND, 13-26 thru 13-28 

DMS FREE, 13-28, 13-29 

DMS INSRT, 137-29, 13-30 

DMS LOCK, 13-30 thru 13-32 

DMS REMOV, 13732, 13-33 

DMS STORE, 13-33, 13-34 

DMS TRBEG, 13754, 137-55 

DMS TREND, 137-54, 13-55 

lookup LOKUP, 9-36 thru 9-42 

move MOVE, 9-20, 9-21 

move MOVEA (move array), 9722 
thru 9-26 

move MOVEL, 97-20 thru 9-22 

move zone MHHZO, 9-28, 9-29 

move zone MHLZO, 9-28, 9-29 

move zone MLHZO, 9-28, 9-29 

move zone MLLZO, 9-28, 9-30 

program branching GOTO, 9-35 

program branching TAG, 97-35 

programmed control of input/ 
output CHAIN, 9-44 thru 9-46 

programmed control of input/ 
output DSPLY, 9-46, 9-47 

programmed control of input/ 
output EXCPT, 9-47 
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programmed control of input/ 
output FORCE, 9-47, 9-48 
programmed control of input/ 
output READ, 9-48, 9-49 
programmed control of input/ 
output RECV, 9-49 thru 9-51] 
programmed control of input/ 
output SEND, 9-51, 9-52 
programmed control of input/ 
output SETLL, 9-52 
setting indicators SETOF, 9-35 
setting indicators SETON, 9-35 
subroutines BEGSR, 9-42 
subroutines ENDSR, 9-42, 9-43 
subroutines EXSR, 9-43 
time TIME, 9-53, 9-55 
transfer control ZIP, 9-36 
operation codes, 2-4, 9-11 thru 9-55, 
13-23 thru 13-34, 13-36, 13-54, 
13-55 
OPERATION field, 9-9, 13-20 
Operator option for halt recovery, 
E-1 thru E-SA 
OPTION field, 8-7 thru 8-8E, 11-1 
OR line 
Input Specifications, 8-3 
Output~-Format Specifications, 
10-17 
OR relationship, 8-26, 8-41 
Calculation Specifications, 9-3, 
9-5, 13-24 
Input Specifications, 8-26, 8-27 
order 
indexed, 13-8 
physical, 13-8 
ordered set, 13-8 
out put 
detail, 10-4 
exception, 9-47, 10-4, 10-5 
heading, 10-4 
total, 10-4, 10-5 
output fields, 10-17 thru 10-20 
*PLACE, 10-19, 10-20 
*PRINT, 10-20, 10-21 
JDATE, 10-18A 
PAGE, 10-18 
PAGEn, 10-18 
UDATE, 10-18A 
UDAY, 10-18A 
UMONTH, 10-18A 
UYEAR, 10-18A 
output files, 4-3 
chained, 9-45, 9-46 
conditioned by external indicator, 
4-34, 4-35 


device assignment of, 4-26 
thru 4-29 
output indicators 
01-99, 10-11, 10-12 
1P, 10-11, 10-16, 10-17 
AND/OR, 10-17 
D1, DA-DH, DJ-DS, 13-18, 13-19 
HO-H9, 10-11, 10-13 
LO-L9, 10-11, 10-12 
LR, 10-11, 10-13 
MR, 10-11, 10-13 
OA-OG, OV, 10-11, 10-13 thru 
10-15 
U1-U8, 10-11, 10-13 
OUTPUT INDICATORS field, 10-11 thru 
10-17, 13-46 
Out put-Format Specifications, 10-1 
thru 10-58, 13-41 thru 13-49, 
13-55, 13756 
asterisk in column 40, 10-26 
field definitions, 10-1 thru 
10-37, 13-41 thru 13-49, 
13-55, 13-56 
FILENAME field, 10-1, 13-41, 
13-43 
OVERFLOW INDICATOR field, 4-25 
overflow indicators (OA-OG, OV), 
4-25, 9-6, 9-8, 10-11, 10-13 thru 
10-15 
FETCH OVERFLOW field, 10-6 thru 
10-9 
overflow indicators (OA-OG, OV) with 
control level indicators, 10-15 
overflow line, 47-25, 6-1, 675, 10-6 
thru 10-9, 10-13 thru 107-15 


PACKED decimal format, 5-5, 8-20, 
8-22 thru 8-24, “10-27 
PACKED decimal format in vectors, 
o- 5 
PACKED field 
Extension Specifications, 5-95 
Input Specifications, 8-20, 
8-22 thru 8-24 
Out put~Format Specifications, 
10-27 
PACKID dollar option, 117-3, 1373, 
13-9 
PAGE dollar option, 117-8A 
PAGE field, 2-5 
page fields, 8-26, 10-17 
page numbering, 2-4, 2-5, 8-26, 9-8, 
10-17 
PAGE special word, 2-4, 8-2, 8-26, 
8-28, 9-8, 10-18 
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PAGEn special word, 274, 8-26, 9-8, 
9-9, 10-18 fre 
PARMAP dollar option, 1178 
paths, 13-68 
physical data base, 1373 
physical order, 13-8 
PLACE (*PLACE) special word, 27-4, 
10-19, 10-20 
POSITIONS field, 13-12 
pre~execution-time vectors, 5-1, 5-10, 
o~ 11 
loading, 5-10, 5-11 
output, o-14 
table files, 4-5 
primary file, 4-4 
available look-ahead fields, 8-8E 
thru 8-11 
device assignment of, 4-26, 4-27 
DMS, 13-6 
File Description entry, 4-9 
matching field selection of, 
8-34 thru 8-38 
PRINT (*PRINT) special word, 2-4, 
10-20, 10-21 
printer 
block and record length, 4-8, 4-9 
device assignment, 4-26, 4-27 
printer channel skipping, 10-47 
PRINTER device, 4726, 4-27 
printer file handling, 10-47 
printer/keyboard 
CONSOLE, 47-26, 4-27 
display file, 4-4 
printing on cards 
MFCU1; MFCU2, 4-26, 4-27 
PRINTLF device, 4-27 
' PRINTR2 device, 47-26, 4-27 
PRINTUF device, 4-27 
processing methods 
ADDROUT, 4-9, 4-22 thru 4-24 
B-indexed files, 3-1, 4-13 
consecutive, 4-14 
direct files, 4-13, 4-14 
DMS, 13-1 thru 13-70 
indexed files, 4-12, 4-13 
multifile, 8-32 
random, 4-21, 4-22 
random (ADDROUT), 4-22 
random (indexed), 4-22 
random (sequential and direct), 
4-22 
sequential by key, 4-14 
sequential within limits, 4-14 
thru 4-21 
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SETLL, 4-19 thru 4-21, 9-52 
PROCESSING MODE field, 4-9 
program aborts, 137-35 
program branching operations, 9-35 

GOTO, 9-35 

TAG, 97-35 
PROGRAM IDENTIFICATION field, 2-6 
program logic 

RPG cycle detailed, H-1 thru 

H-6 

RPG cycle flowchart, H-2 

programmed control of input and 
output, 9-44 thru 9-52 

CHAIN, 9-44 thru 9-46 

DSPLY, 9-46, 9-47 

EXCPT, 9-47, 10-4, 10-5 

FIND, 13-26 thru 137-28 

FORCE, 9-47 

FREE, 137-28, 13-29 

INSRT, 13-29, 13-30 

LOCK, 13-30 thru 137-32 

READ, 9-48, 9-49 

REMOV, 13732, 137-33 

STORE, 13-33, 13-34 
programmed halts, E-1 thru E-3A 
PTAPE dollar option, 11-6A 
PUNCH20 device, 47-27 
PUNCH42 device, 47-27 
PUNCH device, 4-26, 4-27 
purge field, 4-32 


random access ~ DMS, 137-32, 137-33 
random processing, 4-14, 4-21 
ADDROUT, 4-22 
indexed, 4-22 
sequential and direct, 4-22 
random processing using CHAIN opera~ 
tion, 9-44 thru 9-46 
READOI1 device, 4-27 
READ20 device, 4-27 
READ40 device, 47-27 - 
READ42 ee 4-27 
READ operation code, 9-48, 9-49 
READER device, 4-26, 4-27 
RECORD ADDITION field, 47-31, 4-32, 
10-5, 13-43, 13-44 
RECORD ADDRESS FIELD LENGTH field, 
AG 
record address files, 4-5 
RECORD ADDRESS TYPE field, 4-10 
RECORD DELETION field, 13-8, 1379, 
13-43, 13-44 
record description line, 137-11 thru 
13-13, 13-40 thru 13-45 
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RECORD IDENTIFICATION CODES field, 
8-16 thru 8-20 
additional record identification, 
8-19, 8-20 
C/Z/D field, 8-17 thru 8-19 
CHARACTER field, 8-19 
DMS, 13-12 
NOT field, 8-16 
POSITION field, 8-16 
RECORD IDENTIFYING INDICATOR field, 
8-8E thru 8-15 
record identifying indicators (01-99), 
8-8E, 8-8F, 8-41, 9-6, 9-7, 10-11, 
10-12 
record key 
index key length, 4-9 
index key type, 4-10 
RECORD LENGTH field, 4-8, 4-9 
defaults, 4-9 
table of maximum and minimum 
value, 4-8 
RECV operation code, 9-49 thru 9-51 
REFORM dollar option, 117-5 
relative record processing, 4-13, 4714 
remainder. See MVR operation code 
REMOTE files, 4-5, 4-28, 7-1, 7-2 
RECV operation code, 9-49 thru 
OF OL 
SEND operation code, 7-1, 9-5l, 
9-02, 104 
REMOV operation code, 137-32, 13-33 
REORG dollar option, 117-6 
replacement characters, 10-30 
reserved words 
definition of, 2-4 
restart data set, 13-51 thru 137-56 
RESULT FIELD field, 9-9, 9-10, 13-20, 
13-21 


RESULTING INDICATORS field, 9-11, 13-22 


resulting indicators with CHAIN, 9-44 
resulting indicators with LOKUP, 9-38 
resulting indicators with READ, 9-48, 
9-49 
resulting indicators with RECV, 9-49 
thru 9-51 “ 
resulting indicators with SEND, 9-51 
rounding numbers in RESULT FIELD (half 
adjust), 9-10, 9-11 
RPERA dollar option, 117-5 
RPG cycle ~- DMS, 13-8, H-1 thru H-6 
RPG extensions 
$ options, 1174 thru 117-6A 
RPG I explanation, 17-3, 37-4 


RPG II differences in coding, 3-4, 


8-44, 10-25 


RPG II explanation, 173 

RPG differences in coding, 374 

8-44, 10-25 

RPG library files ~ DMS, 13-3, 13-64 
RPG operation, I1-l 
RPG program cycle, H-1 thru H-6 

flow chart, H-2 
RPG source program, 171 

illustration of, 1-3 

order of specifications, 17l 
RPGLIB, 13-64 
RPG/BTF, F-1 thru F-3 

functions, F-2 

input, Frl, F-2 

rules, Frl , 
RSIGN dollar option, 5-5, 117-6 
run-time error handling ~ DMS, 137-35 

thru 137-41 


search word 
LOKUP operation, 9-36 thru 9-42 
secondary files, 4-4 
available look-ahead fields, 
8-11, 8-12 
device assignment, 4-26, 4-27 
DMS, 13-6 
matching field selection of, 
8-32 thru 8-39 
SECURE dollar option, 117-6A 
SECURITYERROR exception, 137-35 
selection expressions, 13-20, 13-21 
selection of records on input (multi- 
file processing), 8-32 thru 8-36 
selection of stackers (Input Speci-~ 
fications), 8-20 
selection of stackers (Out put~Format 
Specifications), 10-6 
SEND operation code, 9-51, 9-52 
SEQ dollar option, 11-6A 
sequence checking of input records, 
Ae, Lor 
sequence checking of matching fields, 
8-39 
sequence error, E7-3 
SEQUENCE field 
DMS, 137-7, 13-11 
Extension Specifications, 5-6 
File Description Specifications, 
4-7 
Input Specifications, 87-3 thru 
8-5 
sequential access ~- DMS, 137-21 
sequential files, 4-11 
accessing methods of, 4-10, 4-1] 
organization of, 4-ll, 4-12 
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sequential processing by key, 4-14 

sequential processing using SETLL, 
4-19 thru 4-21 

sequential processing within limits, 
4-14 thru 4-18C 

SETLL operation code, 9-52 

SETOF operation code, 9-35 

SETON operation code, 97-35 


SETON operation code to force overflow, 


10-8, 10-14 
sets, 13-71 
setting indicators, 9-39 
calculations (CHAIN operation), 
9-44, 9-45 
calculations (COMP operation), 
9-31 
calculations (LOKUP operation), 
9-36 thru 9-42 
calculations (READ operation), 
9-48, 9-49 
calculations (RECV operation), 
9-49 thru 9-51 
calculations (resulting indica- 
tors), 9-11, 13-22 
calculations (SEND operation), 
9-51, 9-52 
calculations (SETOF operation), 
I-30 
calculations (SETON operation), 
9-35 
calculations (TESTB operation), 
9-34 
calculations (TESTN operation), 
9-31 thru 9-32A 
calculations (TESTZ operation), 
9-32A 
Dl, DA-DH, DJ-DS, 13-18, 13-19 
DMS, 13-22 
File Description entry, 4725 
Input Specifications (control 
level), 8-28 thru 8-32 
Input Specifications (matching 
records), 8-28 thru 8-39 
Input Specifications (record 
identification), 8-8E, 8-8F 
SETOF, 9-35 
SETON, 9-35 
Sign position, 37-3, 13-12 
SKIP field, 10-10 
RPG II, 10-10 


SKIP field used with overflow indica-~ 


tor, 10-8 
SORT MEMORY SIZE, 37-3 
source input, 12-1 
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SPACE field, 10-9 
special words, 2-4 
*PLACE, 10-19, 10-20 
*PRINT, 10-20, 10-21 
JDATE, 10-18A 
PAGE, 8-26, 10-17, 10-18 
PAGEn, 8-26, 10-17 
UDATE, 10-18A 
UDAY, 10-18A 
UMONTH, 10-18A 
UYEAR, 10-18A — 
Specifications 
Calculations, 9-1 thru 9-955 
Control Card, 3-1 thru 37-4 
Data Base, 13-2, 137-3 
Dollar options, 11-1 thru 11-8A 
File Description, 4-1 thru 4-49 
Input, 8-1 thru 8-44 
Line Counter, 6-1 thru 676 
Out put-Format, 10-1 thru 10-58 
Telecommunications, 7-1 thru 
179 
Vector and Extension, o-1 thru 
o715 
split control fields, 8-30 thru 8-32 
SPO device, 4-27 
spread cards, 8-12 thru 8-15 
processing, 8-15 
rules for, 8-15 
SQRT operation code, 9-17, 9-18 
negative root halt recovery, 
E~-3 
SR. See subroutines 
SR entry, 97-5 
STACK dollar option, 117-8 
STACKER SELECT field, 8-20, 10-6, 
13-12 
STORE operation code, 13733, 13-34 
structures, 13-1 
SUB operation code, 97-13 
subroutines, 9-1, 9-42, 9-43 
AN/OR, 97-3, 9-5, 9-42 
BEGSR, 9-42 
ENDSR, 9-42, 9-43 
EXSR, 9-43 
SR entry, 9-3, 9-42 
UR entry, 137-36 
subsets, 13-1 
SUPR dollar option, 1178 


TAB (table name), 57-3 

table element, S-1l 
error messages, E73 
maximum number of, 5-4 
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sequence of, 5-6 
table files, 47-4, 5-3 
device assignment of, 
tables 
comment line coding, 5-6 
decimal positions of fields, 
o- 6 
describing second vector, 5-6 
differences between array and 
table, 5-7 
entries per record, 9-4 
entries per table, 5-4 
example of compile-time load, 5-10 
example of dynamic/execution 
load, 5-12 
example of pre-execution load, 
o- 11 
Extension Specifications, s-1l 
thru 5-15 
Extension Specifications Summary 
Sheet, 9-2 
FROM FILENAME, 5-1 
general, 5-7 
input (FROM FILENAME), 5-1 
length of entry, 5-4, 5-5 
LOKUP operation, 9-36 thru 9-42 
MOVEA operation, 9-22 thru 9-26 
name, 5-3, 5-4 
output (TO FILENAME), 5-1 
output via File Description 
Specifications, 4-5 
packed fields, 5-5 
referencing in calculations, 
thru 9-42 
related or alternating format, 
9-6, S-7 
searching. See LOKUP operation 
sequence field, 5-6 
Summary sheet, 5-2 
TO FILENAME, 5-1 
XFOOT operation, 9-17 
TAG operation code, 9-35, 9-36 
TAGSORT with RPG, G-1, G-2 
TAPE7 dollar option, 11-6A 
TAPES dollar option, !11-6A 
TAPE device, 4-26 
TAPE REWIND field, 4-32 thru 4-34 
effect on card input, 4-32 
effect on card output, 47-33 
effect on disk files, 4-34 
effect on printer output, 
effect on tape input, 4-33 
effect on tape output, 4-33 
Telecommunications Card Specifications, 
7-1 thru 77-9 


4-27 


5-5, 


9-36 


4-33 


field definitions, 7-2 thru 7-4 
FILENAME field, 7-2, 7-4 
Telecommunications file, 4-28, 7-1 
TESTB operation code, 9-34 
testing fields. See field indicators 
testing results of calculations. 
See resulting indicators 
TESTN operation code, 9-31 thru 9-32A 
TESTZ operation code, 9-32A 
time of day 
TIME operation, 2-4, 9-53 
TO FILENAME field, 5-1 
total calculations, 8-29, 9-1 
total lines, 6-4, 10-5 


total lines during overflow, 10-6, 
10-7 
total records, 10-4 
total time 
RPG cycle, H-1 thru H-6 
ZIP, 9-36 
transaction state, 13-51, 13-52 


transfer of control function, 9-36 
TRBEG operation code, 13-54 
TREND operation code, 13-54 
TYPE field, 10-4, 10-5, 13-43, 137-53 
10-18A 
10-18A 
10-18A 


UDATE special word, 2-4, 9-9, 
UDAY special word, 2-4, 9-9, 
UMONTH special word, 2-4, 9-9, 
unpacked decimal format, 8-21 
update files, 4-3 
available look-ahead fields, 
8-11, 8-12 
chained, 9-45, 9-46 
conditioned by external indica~ 
tors, 4734, 4-35 
device assignment of, 
UR entry, 13-36 
user routines, 13-36 
UYEAR special word, 2-4, 9-9, 


4-26, 4-27 


10-18A 


valid data set, 137-23 
VALUE field, 11-8 
variable length records, 174 
variable format records, 13-44 thru 
13-46 
VARIABLE NAME field 
DMS, 13-47 
Input Specifications, 8-26 
Output Specifications, 10-17 
vector element, 5-4 
alphanumeric, 5-5, 576 
error messages, E-3 
maximum number of, 974 
numeric, 37-4, 375 


Index-19 


INDEX (Cont) 


numeric decimal positions, 5-5, 
O76 
sequence of, 5-6 
vector file input, 12-3 
vector loading, S-l, 5-7 thru 5-14 
VECTOR NAME field, 5-3, 5-4, 5-6 
vector names, 27-2 
vector output, o-14 
VERSIONERROR exception, 137-35 
VOID dollar option, 117-8 


XFOOT operation code, 9-17 
XMAP dollar option, 117-8 
XREF dollar option, 117-8 


ZADD operation code, 9-19 

ZBINIT dollar option, 11-7 

zero suppression, 107-31, 10-32 

zeros in edit words, 10-30 thru 107-32 

ZIP operation code, 9-36 

zone portion of characters, 8-17, 8-18, 
A~1l thru A-3 

hexadecimal representation, B-l, 
B-2 

zone portion of characters with packed 
decimal format, 8-20 thru 8-22 

ZSUB operation code, 9-19 


01-99 indicators 


Input Specifications use, 8-8E, 
8-8F 


Tndex-20 


Output Specifications use, 107-12 
resulting in calculations, 9-11 
01-99 indicators conditioning calcu-~ 
lations, 9-6, 9-7 


1P (first page) indicator 
Control Card Specifications, 3-4 
forms positioning, 37-4 
Output~Format Specification use, 
10-16 


(ampersand) 
use in edit words, 10-30, 10-35 
(dollar sign options), 117-1 thru 
11-8A 
(fixed or floating dollar sign), 
10-30, 10-33 
* (asterisk, star), 10-30, 10-33 
* comment line, 2-6, 5-7, 9-11, 11-8A 
*printing on cards (Output Specifi- 
cations column 40), 10-20, 10-21 
** (look-ahead fields), 8-8F thru 
8-11 
** PLACE 
conditioning fields, 10-19, 10-20 
end position in output record, 
10-26 
example of, 10-19 
overlapping fields, 10-20 
*PLACE special word, 2-4, 10-19, 
10-20 
*PRINT 
example of, 10-20, 10-21 
*PRINT special word, 2-4, 10-20, 
10-21 


PF CC & 


